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SONYCONVOCA EL T GRAN CONCURSO DE PROGRAMAS MSX. 

i:o 00.000 



Se ha abierto ya la convocatoria del 2 o Gran Concurso de Programas MSX. Hay dos categorías 
de participación: Una, para Centros Docentes; otra para particulares y público en general. 




En la categoría de "Centros Docentes" 
se aceptarán todos los programas cuyo tema seo- 
pedagógico pero gue, por supuesto, no sean la mera 
copia de un libro o de un programa ya existente. 
Lo gue se pretende es estimular la creatividad. 
En la segunda categoría, gue denominamos 
"General", los programas gue participen deberán 
corresponder a uno de los cuatro temas siguientes: 

► Simulación en el ámbito de las Ciencias (Física, 
Química, Biología, Ecología, etc.). Se trata de 
crear un programa gue simule un caso real 

o imaginario. 

► Música (creación, interpretación, generador de 
sonidos y ritmos, etc.). 

►juegos de aventuias. 

►íliáficos y Diseños (se valorará la posibilidad de 
impresión en Plotter). 




SONY tendrá la propiedad de los programas 
premiados. 

SONY tendrá los derechos de compra sobre el 
resto de los programas presentados. 
Los programas gue concursen deberán ser 
presentados grabados en cinta de audio SONY 
o diskette SONY OM-D3440, entregándose dos 
copias Asimismo se deberá adjuntar un listado 
del programa, instrucciones de funcionamiento y 
una síntesis del contenido del programa. 
Con cada programa se entregará un sobre 
cerrado conteniendo los datos del autor o autores, 
y en el exterior figurará el título correspondiente. 
Todos los concursantes, independientemente de 
su clasificación final, i 




Los premios se repartirán también 
según las categorías: 

Cate g oría Centros Docentes. 

- Un único premio de un millón de pesetas a 
repartir entre el Centro Docente y el autor del 
programa. 500.000- Ptas. para cada uno. 
Cate g oría General. 

- Un premio de 500.000- Ptas. para el gue guede 
clasificado en primer lugar. 

- Dos premios de 300.000- Ptas. para los gue 
gueden clasificados en segundo lugar. 

- Tres premios de 100.000- Ptas. para los gue 
gueden clasificados en tercer lugar. 

Todos los premios serán en material SONY. 



La fecha límite para la recepción de los 
programases el 30 de Enero de 1 987í Debiendo 
ser entregados a SONY ESPAÑA, S.Á., 
Departamento de Ordenadores MSX. Sabino de 
Arana, 42-44, 08028 - Barcelona; TEL. (93) 330.65.5 1 . 




Entre todos los programas recibidos, el 
jurado elegirá los gue, a su juicio, contengan un 
mayor nivel de innovación y creatividad. 

El fallo será público el 1 de 




- Los programas presentados por los 
Centros Docentes deberán tener un máximo de 
28K.RAM. 

Los programas presentados por particulares para 
la Categoría General deberán tener un máximo 
de 12 K.RAM. 



Loa Srei. Juan ftoíg f «rár» 
de Cotwkmtí (Tarragona) 
Jerái Artín Gascón de 
Salamanca, y Enrique 
Riera Quite» de Valencia 
fueron ganadote» del 
Primer Concurso d» 
Programáis MSX. Sus 
programa* han aidp 
publicados por SONY y 
actualmente e«tán siendo 
corae«áali«adoB. Con los 
ganador*» de este año 
se hará lo mismo. Tú 
pu&tinB Sot uno d© ellos 



Abril de 1.987 y publicado 
en la prensa nacional. 
Para mayor información o 
consulta, diríjase a 
cualguiera de 
las Delegaciones SONY. 

ORDENADORES 

HIT3IT 



BARCELONA 

Sabino de Arana, 42-44 
Tel. (93) 330 65 51 
08028 BARCELONA 



DELEGACIONES SONY ESPAÑA, S.A. 

MADRID BILBAO SEVILLA VALENCIA LA CORUÑA 

Julián Romea, 8 Pintor Lecuona, 1 Niebla, 8 Salvador Ferrandis Luna, 6 Avda. E|ército, 23 

Tel. (91) 253 08 00 Tel (94) 444 42 00 Tel. (954) 27 47 07 Tel. (96) 325 35 06 Tel. (981) 29 98 55 

28003 MADRID 480 1 2 BILBAO 41011 SEVILLA 460 1 8 VALENCIA 1 5006 LA CORUÑA 



Editorial 

CULTURA 
INFORMATICA 

El sorprendente éxito de la 
microinformática de consumo ha 
puesto en evidencia la falta de cultura 
informática de la gran mayoría de los 
consumidores. Este hecho, que parece 
agravarse con el incremento cada vez 
más progresivo délas ventas, tiene 
una solución. Esta solución depende 
básicamente tanto de los medios de 
información como de los fabricantes. 
La tarea de estos últimos consiste en 
preparar adecuadamente a sus 
vendedores para que sean éstos 
quienes, en el trato directo con el 
usuario, informen de todo lo que es la 
máquina que le ofrece. Hasta ahora 
muchos de los fabricantes de MSXhan 
puesto a la venta sus aparatos del 
mismo modo que su lavadora o su 
máquina fotográfica, olvidando que 
estamos ante un producto nuevo y de 
especiales características de 
aphcación. Todos los fabricantes han 
de tener en cuenta que el usuario, que 
parte de la idea de que tener un 
ordenador es útil, aún no está en 
condiciones para sacarle provecho y 
que por tanto quien se lo vende tiene la 
obligación de enseñarle su uso. 
En cuanto a los medios de 
comunicación con quienes también 
está obligado el fabricante a brindarle 
información, hay que deslindar dos 
aspectos. El primero es que su misión 
es la de clariñcar el mercado dando 
cuenta de todo lo que sucede en el 
mundo informático de un modo 
sencillo y eñcaz. El segundo aspecto es 
el de ayudar al usuario a usar su 
máquina enseñándole los distintos 
modos de sacarle más provecho, lo que 
no quiere decir que tenga que 
enseñarle informática, pues para 
conducir un coche no es necesario ser 
mecánico. 

Seguramente la prensa especializada 
con mayor o menor acierto cum pie con 
esta tarea, pero la prensa de 
información general comete errores 
garrafales de información que podrían 
evitarse con sólo consultar a las 
personas o empresas idóneas. Estos 
errores crean un notable 
confusionismo en el mercado de la 
microinformática de consumo, lo cual 
redunda negativamente tanto en el 
fabricante como en el usuario. 
Estas razones nos llevan a pedir a 
unos y a otros un mayor rigor y 
seriedad ya sea en la comercialización 
de los aparatos como en la 
información que se ofrezca de ellos. 

Manhattan Transfer, SJL 
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P.V.F. 175 ptas. (Incluido IVA 
y sobretasa aérea Canarias) 
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Input 



Mi manual dice que la ins- 
trucción ERASE sirve para 
cambiar el nombre de una ma- 
triz. ¿Es cierto? 

En ocasiones cargo un pro- 
grama y aparece el mensaje 
«Device 1/0 error», aunque, 
aun así, puedo ver parte del lis- 
tado mal cargado. ¿Hay alguna 
forma de recuperarlo? 

Quisiera aumentar la me- 
moria de mi SPECTRAVTDEO 
728 con un cartucho para que 
me entren los juegos de 32K. 
¿Cuál me aconsejáis? 

Francisco Mal do na do 
Cetina 

— El cometido de la instruc- 
ción ERASE es exclusivamen- 
te el de borrar variables de 
conjunto (matrices), a fin de 
despejar el espacio de memo- 
ria que ocupan las que ya no se 
usan. Por otra parte, la ins- 
trucción CLEAB borra todas 
las variables de todos los tipos. 

— Para recuperar todo lo que 
se pueda de un programa da- 



ñado es preciso construir una 
rutina en ASSEMBLER. Publi- 
caremos una en un futuro pró- 
ximo. 

—Tu ordenador dispone de 
64K de RAM para la carga de 
programas. El hecho de que el 
BASIC sólo pueda manejar 
28K es anecdótico. Así que ol- 
vida el cartucho de ampliación 
y gasta tu dinero en progra- 
mas, ya que no tienes ningún 
problemas de memoria. 



MENSAJES DE ERROR EN 
CASTELLANO 

En la revista número 1 6 y en 
la sección trucos del progra- 
mador hay un programa lla- 
mado «Mensajes de Error en 
Castellano». El problema es 
que me sale «Out of DATA». 

Javier Maque da Sánenos 
Alcorcón (Madrid) 

Al finalizar el programa 
«Mensajes de Error en Caste- 



DIBUJAR EN EL BORDE 

4v,»„ annaarAón de que hay l 



-¿Cómo se puede escribir, 
realizar gráficos, etc., en los 
bordes del SCREEN2 tal y 
como he observado en el Athle- 
tic Land? 

-¿Me podíais decir en que di- 
recciones están almacenados 
los comandos LOAD, CLOAD, 
SAVE Y CSAVE? 

-¿Hay alguna subrutina con 
la que una vez construido un 
SPRITE lo invierta, es decir, 
que si el SPRITE está mirando 
a la derecha mire a la izquier- 
da o viceversa? 

José Juan 
Quevedo Sáncnea 
Atarfe 



-Escribir en el Borde es ao- 
solutamente imposible. Ahora 
bien, lo que sí es factible es 
cambiar el color del mismo de 
una forma tan rápida que déla 




sensación de que hay peque- 
ñas franjas rectangulares o 
cuadradas en continuo movi- 
miento. En realidad este es un 
campo abierto a la experimen- 
tación, ya que si se construye- 
ra una rutina gestionada por 
interrupciones tal vez sería 
posible obtener interesantes 
efectos. Naturalmente habría 
que elegir con mucho cuidado 
los tiempos y especular con las 
pausas del VDP tras los retor- 
nos de cuadro. 

-No sé bien a qué te reñeres 
con tu segunda pregunta. Si 
lo que desea es saber dónde 
se almacenan los parámetros 
relacionados con la cinta, te 
diré que vienen directamen- 
te de ésta, cuando se trata de 
leer- o son tomados del pro- 
grama o del buffer de proceso 
(&HF41F), si se trata de gra- 
bar. . 

Por otra parte, sí lo que quie- 
res saber es la dirección de las 
rutinas de la ROM relaciona- 
das con el cassette, te aconsejo 
que leas nuestro número «Es- 
pecial Código Máquina», pues- 
to que allí se recogen las más 
importantes. 

-En cuanto a la rutina para 
invertir un SPRITE, te he cons- 
truido una que encaja, creo yo, 
con lo que tú deseas. La encon- 
trarás al ñnal de la revista, en 
la sección «Trucos del progra- 
mador». 



Output 




llano» del número 16 tecleé 
NEW, siguiendo sus instruc- 
ciones. Posteriormente me di 
de que el programa no 
¿Por qué? 



Sunol Sábat 
Barcelona 



El programa que citáis es di- 
fícil de teclear. No basta con in - 
tentar ceñirse al listado, hay 
que respetar exactamente to- 
das las comas y los espacios 
que existen (o no) entre ellas. 
Cualquier ligero desliz hará 
que el programa no funcione, 
aunque, por cierto, lo hace per- 
fectamente. 



ENSAMBLADOR 

Hace poco he adquirido un 
ensamblador para entrar ruti- 
nas C.M. En la sección «CALL» 
del número 22 sale una peque- 
ña rutina de multiplicación en 
ASSEMBLER. La he copiado y 
no hay forma de que pueda eje- 
cutarla. Así me ha ocurrido 
también con varios progra- 
mas de la sección «Del Hard al 
Solft». Por más que intento 
sólo consigo el mensaje de 
«Pardon?». 

Gabriel León 
Barcelona 

El mensaje que citas es ca- 
racterístico de los compilado- 
res de HISOFT, por ello deduz- 
co que estás empleando el en- 
samblador «GEN» de la citada 
casa. 

Si quieres ejecutar un pro- 
grama desde «OEn», lo prime- 
ro que debes hacer es especifí- 
car con el seudonemónlco ENT 
una dirección de arranque. 
Vale una línea como esta: 

1 ENT dirección. 

Luego de efectuar el ensam- 
blado de la rutina, y si éste se 
ha completado sin errores, 
aparecerá lo siguiente: 

Pass 2 errors: 00 

Table used xx from xx 

Executes: dirección 

Pues bien, sólo r esta teclear 
«R» seguido de RETURN para 
que la ejecución comience en 
la dirección preestablecida. 



CON GARANTIA 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP, 800 Pts. 




HARD 
GOPY 

POR JOAQUIN LOPEZ 

Mcnúft por ventana* - tro» 
formato» do coplas simulación 
en blanco y negro - copla 
aprltoa redeflne colore» 
compatible con cualquier 
impresora matrlclal. 



CON GARANTIA 

WHATIANTRANSFERSA 



HARD CCPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copia sprites, redefinic. de colores, 
compatible con todas las impresoras ma- 
tric. PVP. 2.500 Pts. 
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msxclub 



KRYPION 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP 500 Ptas. 




QUINIELAS I 

7 




- ^ 



U-BOOT Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



CON GARANTIA 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 



FLOPPY. El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo. PVP 1 000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1 000 pts 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 







Nombre y apellidos: 

Dirección: 

| Población: 

□ KRYPTON Ptas. 500- 

I □ UBOOT Ptas. 700- 

I □ QUINIELAS Ptas. 700- 

□ HARDCOPY Ptas. ,- 

fastos de envió certificado por cada cassette 







CP Prov Tel.: 

□ SNAKE Ptas. 600,- □ FLOPPY PVP. 1.000 Ptas. 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700,- □ MAD FOX PVP. 1.000 Ptas. 

□ STAR RUNNER Ptas. 1.000- □ VAMPIRO PVP. 800 Ptas 



Ptas. 70,- Remito talón bancario de Ptas. 



a la orden de Manhattan Transfer, SA 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Input 



LUCKYLUKE 



Al teclear el programa Luc- 
ky Luke he notado que cuando 
te pregunta ¿Quieres probar 
otra vez? el ordenador no es- 
pera tu contestación y esto lo 
atribuyo a la ausencia de una 
línea como la siguiente: 

2620 GOTO 2590 

Incluyéndola, el programa 
espera hasta que pulsemos la 
opción deseada. 

Virgilio Lado Fernández 
(Barcelona) 

No habíamos detectado el 
problema que mencionas, y 
por lo tanto para nosotros es 
absolutamente nuevo. 

De todos modos, quizá algún 
otro lector se haya encontrado 
con él y tu amable carta se lo 
solucione. 

En su nombre, muchas gra- 
cias. 





-i 


* 
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dad de disco está en uso y per- 
manece encendida hasta que 
se para la máquina (Tengo un 
Spectravideo X'press) 

Ricardo Herrero 
(Calatayud) 

Tu consulta no tiene nada de 
alarmante. Lo que sucede es 
que la mayoría de programas 
que se realizan en código má- 
quina utilizan desde elAssem- 
bler la unidad de disco y la de- 
jan habilitada para grabar o 
cargar. 

Al realizar esto, el motor de 
la unidad continúa funcionan- 
do pero no escribe ni lee nada 
absolutamente- en el diskette. 
Incluso en algunos programas 
este funcionamiento del motor 
se produce de una manera no 
pretendida, pero en resumidas 
cuentas no te preocupes en ab- 
soluto, puesto que los diskettes 
no se 



LA LUCE CITA DEL 



Me gustaría que me explica- 
rais el por qué cada vez que 
cargo un programa en código 
máquina se me enciende la lu- 
cecita indicadora de que la uni- 



DISCOS 



Tengo un problema: he deci- 
dido comprarme una unidad 
de disco CANON VF-100 y qui- 
siera formular varias pregun- 
tas: 



-¿Será suficiente esta uni- 
dad para llevar una pequeña 
contabilidad? 

-En caso de que no, ¿Tendría 
que cambiar a un ordenador 
con un microprocesador de 
más de 8 bits? 

—¿Es compatible un cartu- 
cho ROM con la unidad encen- 
dida? 

—¿Se pueden cargar juegos 
comerciales con la unidad en- 
cendida? 

Javier Peña (Santander) 

Evidentemente, la unidad de 
disco CANON es suñciente 
para gestionar una 
contabilidad. 

De todos modos, lo intere- 
sante es encontrar un buen 
programa de contabilidad que 
se adapte a tus necesidades, 
cosa que no va a ser diñcil 
puesto que actualmente ya 
existe un amplio catálogo de 
software disponible para dis- 
kette. Si la contabilidad no es 
tan pequeña, el problema con 
el que te vas a encontrar en el 
peor de los casos será el cam- 
bio constante de diskette, so- 
bre todo si la actualización de 
datos es muy frecuente. 

Para resolver este pequeño 
problema —que en realidad es 
más una incomodidad que otra 
cosa— desde luego no has de 
cambiar tu MSX por un orde- 
nador con micro de 16 bits. 
Simplemente te bastará con 
adquirir una segunda unidad 
de diskette, y la gestión de los 
datos será mucho más ágil, 



Output 



puesto que sólo deberás limi- 
tarte a traspasar los datos de 
la unidad origen a la de desti- 
no, en lugar de estar sustitu- 
yendo el diskette cada vez que 
hayas de realizar una copia. 

Los cartuchos ROM tienen 
prioridad sobre la unidad de 
disco, puesto que cuando se co- 
necta el sistema, este realiza 
una exploración interna co- 
menzando por las ranuras de 
cartucho. 
Efectivamente, se pueden 
i comerciales con 
encendida, pero he- 
mos de tener en cuenta -si van 
en formato de cinta- la canti- 
dad de memoria que consu- 
men, puesto que como sabes, al 
cargar el sistema operativo de 
disco consume aproximada- 
mente 4 K de la RAM de usua- 
rio. En este caso la unidad de 
disco no inhibe la carga del 
programa del cassette, sino 
que -en el caso de que el pro- 
grama consuma la totalidad de 
la RAM- avisará que se ha so- 
brepasado la capacidad de la 
memoria. 

Por ello, en el caso de que 
desconozcas la cantidad de 
memoria que va a consumir el 
programa en formato de cinta, 
te recomendamos que efectúes 
su carga sin haber conectado 
la unidad de diskette, o que en 
el caso de que la tengas conec- 
tada y te dé error, la desconec- 
tes y vuelvas a repetir de nue- 
vo la carga del programa. 




JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 

QUINIELAS 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 

PIDENOS QUINIELAS HOY MISMO SOLO 700 Ptas. 










IjNOS APLICAMOS A SER UTILES!! 

| A TRAVES DE M5X CLUB DE MMUNC PUEDES ADQUIRIR | 



BASIC TUTOR IDEALOCIC 



ADAPTADORES TARJETASI 
INTELIGENTES 
BEE CARD Y SOFTCARD 





MSX 


HUI 


son son 




Deja el manual de lado, inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts. 



No te quedes al margen y disfruta de las tarjetas 
inteligentes. Lo último en soft. PVP 2.850 pts. 



Nombre y apellidos 

Dirección 

Población 



ENVIA HOY MISMO ESTE CUPON 



I 



CP Prov Tel 

I □ Tutor Basic Ptas. 3.500 - □ Adaptador Bee Card Ras. 2.850- □ Adaptador Softcard Ptas. 2.850- 
| Gastos de envío por cada producto 1 00,- pts. 

| Remito talón bancario de pts. a la orden de Manhattan Transfer, S.A. 

^Enviar a MSX CLUB DE MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 

- 



MITSUBISHI ML-G1 



El MSX2 para to 




Nadie se llame a engaño: Se trata de un MSX2, aunque los otros modelos que hemos comentado en esta sec- 
ción se suministraran en dos módulos, este MITSUBISHI es tan segunda generación como el que más. 
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Mitsubishi, siempre a la vanguar- 
dia en el tema MSX está comer- 
cializando el ordenador de la 
segunda generación ML-G1 , 
especialmente indicado para aquellos 
usuarios que deseen una configuración 
reducida pero potente y con posibilida- 
des de expansión. Este equipo es el her- 
mano menor del ML-G3, del que habla- 
mos en esta misma sección en el mes 
de septiembre. 

CHIQUITO PERO MATON 

Aunque externamente no se diferen- 
cie demasiado de sus hermanos de la 
primera generación, este ML-G1 es un 
MSX2 por derecho propio, que además 
cumple con los requisitos máximos en 
cuanto a VRAM. 

El hecho de que el equipo vaya inte- 



grado en un solo módulo, puede repre- 
sentar una gran ventaja para aquellos 
usuarios que deseen un equipo de últi- 
ma hornada, con todas las característi- 
cas de la segunda generación, pero con 
un precio sensiblemente más bajo. No 
nos engañemos; el elemento que enca- 
rece principalmente a estos equipos es 
la unidad de disco, que en el modelo que 
comentamos es opcional. 

CARACTERISTICAS DEL EQUIPO 

El teclado de este equipo recuerda 
inevitablemente al de los últimos equi- 
pos de Mitsubishi en la primera genera- 
ción: ML-FX1/FX2, lo cual viene a de- 
mostrar que cuando un diseño es bue- 
no, no debe ser retocado (por lo menos 
en cuanto a lo esencial). Esto quiere de- 
cir que -como ya nos viene acostum- 



brando esta marca- consta de teclado 
alfanumérico, con la distribución MSX 
española (incluyendo la letra ñ, a ver si 
toman ejemplo otros fabricantes) y un 
teclado numérico independiente, que no 
nos cansaremos de repetir que facilita 
inmensamente la introducción de datos 
numéricos en los programas. 

El interruptor principal se encuentra 
en el lado izquierdo del equipo, y el útilí- 
simo botón de RESET en el lado dere- 
cho. Las teclas de cursor están ubica- 
das bajo el teclado numérico adoptando 
la cómoda distribución que ya es norma 
en todos los aparatos de esta marca. 

CARACTERISTICAS TECNICAS 

Como hemos indicado, el ML-G1 res- 
ponde a los requerimientos máximos en 
cuanto a RAM de usuario y VRAM. Esto 
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quiere decir que posee una RAM de 64K 
y una VRAM de 128K. 

El microprocesador que incorpora, al 
igual que el resto de aparatos de la nor- 
ma es el Z80 A, de 8 bits. Pero la nove- 
dad principal de la segunda generación, 
que asimismo incorpora este equipo es 
el procesador de vídeo, que sustituye al 
tradicional TMS 9918 de Texas Instru- 
ments. 

Este nuevo procesador de vídeo, 
pensado para realizar tareas que sor- 
prenden al más pintado es el V9938, 
que ha sido desarrollado conjuntamente 
por ASCII Corporation, MICROSOFT In- 
corporated y YAMAHA para mayor uso y 
disfrute de todos aquellos que hayan ad- 
quirido un aparato de la segunda gene- 
ración. 

Enumeraremos brevemente las ca- 
racterísticas más importantes que incor- 
pora este nuevo procesador de vídeo: 

- Permite un display de texto de un má- 
ximo de 80 caracteres en 24 líneas. 

- Asimismo posibilita la colocación de 
hasta 8 SPRITES en la misma línea. 
(Vamos, que la regla del quinto SPRI- 
TE pasa a convertirse en la regla del 
noveno SPRITE). 

- Ofrece siete modos para gráficos 
(SCREEN 2 a 8). 

- Altísima resolución gráfica. Hasta un 
máximo de 512x212 puntos de pan- 
talla. 

- Paleta de colores de hasta un máxi- 
mo de 512 (seleccionables hasta 16 
simultáneamente). 

- Hasta 256 colores seleccionables si- 
multáneamente en SCREEN 8 (modo 
multicolor). 

De las características vistas hasta 
ahora, podemos observar que el trata- 
miento de pantalla ha merecido una 
atención especial en este equipo. De los 
nueve modos de pantalla selecciona- 
bles, merece destacar el hecho de que 
ya es posible trabajar en modo de 80 co- 
lumnas en SCREEN utilizando simple- 
mente la instrucción WIDTH 80, vamos, 
que las únicas pantallas que no han va- 
riado son el modo segundo de texto 
(SCREEN 1) y el primero y segundo de 
gráficos (SCREEN 2 y 3). 

Una observación a tener en cuenta en 
lo referente al nuevo circuito procesador 
de vídeo es el hecho de que resulta per- 
fectamente compatible a nivel de soft- 
ware con la versión anterior, es decir, 
que absolutamente todos los programas 
desarrollados para la primera genera- 
ción funcionan en la segunda, o sea que 
si había algún usuario temeroso de 
cambiarse a un MSX2 por la compatibili- 
dad de sus programas puede estar ab- 
solutamente tranquilo, puesto que como 
queda patente, se trata de una evolu- 
ción y no de una ruptura. 

Además debemos puntualizar que la 
memoria de pantalla (VRAM) es absolu- 
tamente independiente de la memoria 
principal, lo que viene a significar que 
con el ML-G1 se pueden obtener imáge- 
nes en altísima resolución sin que por 
ello disminuya en un solo bit la memoria 
de usuario. 



FICHA TECNICA 



Item 


L. iUCOI 1 ItablUilci 


CPU 


Equivalente al Z-80A 

(frecuencia de reloi 3 573545 MHz) 


Memoria 




32 kB 


ROM (BASIC expandido) 


16 kB 


ROM (Art paper) 


32 kB 


RAM principal 


64 kB 




V-RAM 


128 kB 


Indicaciones en pantalla 


Modo de texto 


32 car. x 24 lineas (16 colores entre 512) 
40 car. x 24 lineas (2 colores entre 512) 
80 car. x 24 lineas (2 colores entre 512) 


Modo gráfico de alta 
definición 

Modo gráfico de alta 
definición 2 


256 x 192 puntos (16 colores entre 512) 
256 x 192 puntos (16 colores entre 512) 


Modo gráfico de baja 
definición 


64 x 48 bloques (16 colores entie 512) 


Modo gráfico por mapa de 
bits 


256 x 212 (16 colores entre 512) 
512 x 212 (4 colores entre 512) 
512 x 212 (16 colores entre 512) 
95fi * 919 (95R rnlnrPíl 


Caracteres 


Matriz de 5 x 7 puntos 
Letras, números y signos 94 
Códigos 71 
Signos gráficos 87 




Teclas 


Distribución MSX española 
Letras y números 
Letras especiales 
Teclas de código y edición 

Tpp!?í*i rip fiir<¡r*r 

1 CLICU VJC tUISUl 

5 teclas de función 

(10 funciones posibles mediante la tecla SHIFT) 
Número total de teclas: 89 


Tipo 


Incorporado a la unidad principal 


Función de generación de 
sonido 


8 octavas y efectos sonoros 
Acordes de tres notas 
Volúmen ajustable por software 
Terminal de salida de audio incorporada 


Item 


Especificaciones 


Interfase de grabador 


Velocidad de transmisión: 1200/2400 baudios 


Interfase de impresora 


Interfase paralela de 8 bits 


Interfase as palanca de comando 


Utilizable también para ratón 


Terminales de salida 


Aberturas de cartucho 2, 50 espigas 

Terminal de ¡mpresors 1, 14 espigas 

Terminales de palanca de 2, 9 espigas 
comando 

Terminal de salida de RF 1,2 espigas 

Terminal de salida compuesta de 1,2 espigas 
video 

Torminal Hp caliría Hp RfiR 1 P<ninac 

Terminal de entrada de grabador 1 , 8 espigas 
Terminal de salida de audio 1 , 2 espigas 


Requerimientos de energía 


220 V CA, 50 Hz 


Consumo 


19 W 


Condiciones 
ambientales 


Temperatu ra 


5 - 35°C 


Humedad 


20-80% (libre de roció) 


Dimensiones 


424 (An)x285 (Pr) x 67 (A1)mm 




■ 
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consecutivas, pero para evitar que el re- 
loj interno se pare basta dejar encendida 
la unidad unos 70 minutos por día, que 
seguramente es un tiempo mucho me- 
nor del que se acostumbre a pasar un 
usuario delante del equipo, sobre todo si 
es nuevo. 

También es posible destinar 32Kb de 
RAM a la creación de un disco de me- 
moria virtual. Esto permite gestionar una 
parte de la RAM no accesible al usuario 
realmente como si se tratara de un dis- 
kette, con la salvedad de que al desco- 
nectar la unidad se pierden los datos al- 
macenados en esta parte de la memo- 
ria, pero mientras tanto permite acceder 
a una velocidad superior a la de la uni- 
dad de disco (a la velocidad de la memo- 
ria) a los datos que tengamos almace- 
nados en esta zona de disco virtual 
(RAM DISK). 

Hasta ahora, los únicos equipos que 
incorporaban esta característica de 
RAM DISK eran equipos profesionales, 
con micros de más de 8 bits y lógica- 
mente con una gama de precios que no 
tiene nada que ver con el equipo que es- 
tamos comentando. 



ART PAPER 



Por si a alguien le pareciera que con lo 
expuesto desde estas páginas no queda 
suficientemente justificada la competiti- 
vidad de este equipo, hemos de decir que 
-como ya nos viene acostumbrando 
este fabricante líder en su terreno- lleva 
un programa de dibujo incorporado. 

Desde la incorporación de Melbrains 
Note en sus modelos de la serie FX, Mit- 
subishi viene obsequiando a sus clien- 
tes con software residente en sus apara- 
tos, y cómo no, en el ML-G1 no podía 
romper esta tónica. 

Con el ML-G1 viene suministrado un 
programa de dibujo denominado Art Pa- 
per, que proporciona todas las herra- 
mientas imaginables para la creación de 
gráficos: Espejos, Sprays, llenados, 
elipses, circunferencias, rectángulos, lí- 
neas... y además los elementos indis- 
pensables para gestionarlos, es decir, 
posibilidad de carga y recuperación de 
los dibujos así como Hard Copy, etc. El 
programa es sencillísimo de manejar, 
puesto que la selección de las diversas 
opciones se efectúa mediante Iconos. 
Esto hace que cualquier lego en el tema 
pueda realizar unos dibujos que serán 
motivo de sorpresa y deleite a los cinco 
minutos de haber conectado el ordena- 
dor. 

En resumen, se trata de un aparato 
potentísimo de excelente diseño, tama- 
ño reducido y con todas las característi- 
cas de la segunda generación de MSX. 
Su bajo coste en relación a otros mode- 
los, y la excelente relación calidad-pre- 
cio (que es de 63.500 ptas. Inc. IVA) lo 
convierten indiscutiblemente en el 
MSX2 para todos. Este aparato y el ML- 
G3 se venden exclusivamente en los 
Centran On Line de Galerías. 



Hablando de compatibilidades, es im- 
portante mencionar que el BASIC MSX 
incorporado por el ML-G1 es el BASIC 
2.0 que -insistimos una vez más- es 
perfectamente compatible con el BASIC 
MSX 1 .0 que incorporaba la primera ge- 
neración, aunque esta versión es nota- 
blemente más rápida y potente. Este 
BASIC 2.0 incorpora una treintena de 
nuevos comandos aproximadamente 
que están destinados prioritariamente a 
la gestión y tratamiento de gráficos. 
Pero no sólo se limitan las novedades al 
tratamiento de los gráficos. Además del 
nuevo procesador de vídeo, el MITSU- 
BISHI ML-G1 introduce otros elementos 
que lo convierten en un MSX2 a carta 
cabal. 

Citaremos entre ellos el reloj/calenda- 
rio incorporado con alimentación autó- 
noma (una pila de litio se encarga de la 
alimentación aunque desconectemos el 
sistema) que una vez programado man- 
tiene las funciones de fecha y hora con 
la máxima exactitud. La pila para apoyo 
del reloj se carga por completo dejando 
el equipo conectado durante 70 horas 




KONAMI TE PRESENTA EL EXITO MAS SONADO EN TODA EUROPA. 

UNA VEZ INTRODUCIDO EN EL CUARTEL GENERAL, ESCAPA DE LAS BOMBAS, MORTEROS 

Y DEMAS ATAQUES PARA LOGRAR LIBERAR A TUS COMPAÑEROS 

.. .. PRESTA ATENCION A PROXIMAS NOTICIAS 



10 







SERMA. C/. CARDENAL BELLUGA, 21. 28028 MADRID. TELS. 256 21 01/02 



CALLV 



COMPRESOR DE 
PANTALLAS 

El objetivo de este artículo es simple: mostrar cómo puedes comprimir las pantallas y hacer que quepan bas- 
tantes de ellas en la memoria de tu ordenador. 




Es posible que alguna vez hayas 
construido un programa con un 
buen número de pantallas. Pue- 
de tratarse de un juego, un programa de 
gráficos estadísticos o de una rutina 
para representar funciones matemáti- 
cas. Pues bien, en ese caso es casi se- 
guro que habrás notado lo mucho que 
tarda el BASIC en redibujar una pantalla 
completamente. Si se trata de un juego 
(un laberinto, por ejemplo), este proble- 
ma se agudiza y hace que el resultado 
sea prácticamente impresentable. La 
solución al problema de velocidad es te- 
ner la pantalla almacenada en la memo- 
ria, a fin de que no haga falta dibujarla de 
nuevo y baste con ponerla en su sitio en 
un solo paso. En contrapartida, una pan- 
talla completa ocupa 16K, lo que impide 
tener muchas de ellas almacenadas en 
la memoria. 

Puesto que la memoria no puede cre- 
cer, construyamos un artificio que com- 
prima las pantallas. 

COMPRESORES DE PANTALLAS 

El cometido de un compresor de pan- 
tallas es obvio, no así su funcionamien- 
to. 

El principio en el que se basan éstos 
es que dentro de una pantalla suelen 
existir zonas en el que un mismo byte de 
datos se repite un cierto número de ve- 
ces. Si conservamos únicamente el pri- 
mero, y desechamos todos los demás, 
habremos conseguido un buen ahorro 
de memoria. Sin embargo, la cosa no es 
tan sencilla. 

Cuando oigo hablar de un compresor 
de pantallas para algún microordena- 
dor, no puedo evitar sonreír y pensar en 
lo poco útil que debe ser. El motivo es 
evidente: si los datos que configuran la 
pantalla son muy dispares el compresor 
pierde toda su utilidad, al verse obligado 
a entregar un resultado final que ocupa 
más memoria que la pantalla original. 
Hay que tener presente que cuando se 
encuentra un byte distinto al siguiente 
es preciso almacenarlo en el buffer de 
salida añadiéndole un distintivo (otro 
byte), que indique que no se trata de un 
dato repetido, sino de uno independien- 
te. 

Como puedes ver, la utilidad de un 
compresor está ligado a la naturaleza 
misma de la pantalla. Si ésta tiene gran- 
des zonas en los que el mismo byte se 



repite, el programa será muy eficaz, no 
así si los datos son distintos. 

UN COMPRESOR PARA MSX 

Hemos visto ya la principal limitación 
de los compresores, pero, ¿qué es lo 
que hace que una pantalla tenga sus by- 
tes muy desordenados? Los persona- 
jes. En efecto, si alguna vez has creado 
un juego en el que interviene un buen 
número de personajes, habrás observa- 
do como difícilmente repites varios by- 
tes consecutivos en su definición. 

En la práctica totalidad de los microor- 
denadores populares de la actualidad, 



no es posible separar los personajes del 
fondo de la pantalla, lo que hace que 
comprimirla no tenga casi ninguna ven- 
taja. Por el contrario, en el sistema MSX 
existe la posibilidad de emplear SPRI- 
TES, lo que conlleva que la parte enre- 
vesada y difícil de comprimir pueda ser 
considerada como algo independiente. 

Naturalmente todo esto está referido 
a SCREEN2. El modo SCREEN1 con- 
tiene un Kbyte de datos para la defini- 
ción de los caracteres. Si se intenta 
comprimir toda la pantalla, este Kbyte se 
convertirá dos Kbytes, puesto que casi 
no existen bytes repetidos. 

Sin embargo, cuando se programa en 
SCREEN 2 es corriente que la acción se 
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desarrolle en un marco no demasiado 
complicado y los pequeños detalles se 
dejan a las figuras móviles (SPRITES). 
En este contexto, los casi 1 4 Kbytes que 
ocupan el fondo pueden ser reducidos 
fácilmente a la quinta parte (o quizá me- 
nos). 

A continuación tienes el listado en AS- 
SEMBLER de un COMPRESOR/ DES- 
COMPRESOR de pantallas: 
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20 ; COMPRESOR/DESCOMPRESOR 


30 ; 




40 


0R6 50000 


50 BUF: 


EQU 35000 


60 VPEEK: 


EQU I4A 


70 vpoke: 


EQU *4D 


80 cint: 


EQU I2F8A 


90 


CALI CINT 


100 


LD HL,8F7F8 


110 


PUSH HL 


120 


LO A, (HL) 


130 


INC HL 


140 


0R (HL) 


150 


LD IY,BUF 


160 


LO HL, 8192 


170 


LO DE, 14336 


180 


PUSH AF 


190 


CALL BIFURC 


200 


LD HL.O 


210 


LD DE.6144 


220 


POP AF 


230 


CALL BIFURC 


240 


LD DE, -BUF 


250 


ADD IY.DE 


260 


LD (*F7F8),IY 


270 


POP HL 


280 


LD A,2 


290 


RET 


300 ; 




310 ; 




320 i 




330 BIFÜRC: 


JR NZ.DESC0H 


340 C0HPRI: 


LD C,l 


350 


RST #20 


360 


RET NC 


370 


CALL VPEEK 


380 


LD B, A 


390 


INC HL 


400 


CALL VPEEK 


410 


CP B 


420 


JR Z, SI 


430 


LD ( IY+0) ,0 


440 Eli! 


INC 1Y 


450 


LD (ÍY+0),B 


460 


INC 1Y 


470 


JR C0MPR1 


480 Si: 


INC ..C 


490 


JR Z.STOP 



500 


INC 


HL 


510 


CALL VPEEK 


520 


CP 


B 


530 


JR 


NZ,N0 


540 


RST 


120 


550 


JR 


NZ.SI 


560 


INC 


C 


570 STOP: 


DEC 


C 


580 NO: 


LD 


UY*0>,C 


590 


JR 


IN 


600 5 






610 ; 






620 ; 




■ 


630 DESCOMI 


RST 


#20 


640 


RET 


NC 


650 


LD 


B.UY+0) 


660 


X0R 


A 


670 


0R 


B 


680 


JR 


NZ.SIl 


690 


LD 


A.UY+l) 


700 


CALL VPOKE 


710 


INC 


HL 


720 INI : 


INC 


IY 


730 


INC 


IY 


740 


JR 


DESC0H 


750 51 1 : 


LD 


A,(IY+1) 


IW 


CALL VPOKE 


770 


INC 


HL 


780 


DJNZ Sil 


790 


JR 


INI 



RESUMEN DEL 
FUNCIONAMIENTO 

La rutina se comunica con el BASIC 
mediante la función USR. Al llamarla de- 
bes indicarle si lo que deseas es compri- 
mir la pantalla -A = USR (0)-, o des- 
comprimirla -A = USR (distinto de 
cero)-. Cuando la rutina haya realizado 
su cometido volverá al lugar de donde 
fue llamada traspasando a la variable 
usada (A, en este caso) la cantidad de 
memoria utilizada en el proceso. 

En síntesis, la rutina funciona así: 

-La línea 90 convierte la zona de me- 
moria destinada a transferir parámetros 
del formato BCD -característico de las 
variables en coma flotante de Microsoft- 
a formato entero. 

-Las líneas 1 0O a 140 comprueban si 
lo que se desea es comprimir o descom- 
primir, poniendo el flag Z a 1 o a O res- 
pectivamente. 

-Las líneas 150 a 230 ajustan el re- 
gistro HL como inicio de la zona a com- 
primir, DE como final de esta zona e IY 
como inicio del buffer de salida. 

-Las líneas 240 a 280 calculan la me- 
moria empleada y transfieren los pará- 
metros a la variable de llamada del BA- 
SIC. 

-La rutina de compresión (líneas 320 



a 590) es la que realiza la parte dura del 
trabajo. Se trata de comparar un dato 
con el siguiente. Si son iguales, se sigue 
mirando hasta que se encuentra uno 
distinto o se llega a 255, momento en el 
que es colocado en el buffer de salida el 
número de bytes iguales encontrados 
seguido por el valor de éstos. Por el con- 
trario, si un byte es distinto al siguiente, 
se pone un cero como marca y el valor 
de dicho byte a continuación. Nota que 
es aquí donde se consume más memo- 
ria, ya que lo que antes se representa- 
ba con un único byte ahora necesita de 
dos. 

Por último, la rutina hace un RET y da 
el trabajo por concluido cuando el punte- 
ro de lectura (HL) llega a la señal de pa- 
rada (indicada por el registro DE). Esto 
se consigue con un RST # 20, que es la 
rutina del BIOS encargada de comparar 
HLcon DE. 

-La rutina de descompresión (líneas 
630 a 790), realiza justo lo opuesto que 
la anterior. Es decir, si encuentra un 
cero en el buffer, entiende que el si- 
guiente byte es el que contiene realmen- 
te el dato válido. Sin embargo, si en- 
cuentra un byte distinto de cero, lo toma 
como el número de veces que se repite 
un mismo dato y coge el siguiente byte 
como el valor de toda la serie. 

A continuación se incluye el cargador 
de la rutina: 



LISTADO 2 



io - 

20 ' CARGADOR DE LAS RUTINAS DE 
30 1 COMPRESION/DESCOMPRESION 

40 ' 

50 FORX -SO0O0 i TOSO! 30 ! : RE AD V* 
60 P0KEX ( VfiL("&H"+V$) :S=3+PEEK(X) 
70 NEXT 

80 IFS014215!THENBEEP:CLS:F'R1NT"HAY UN 
ERROR" 

30 DATACD» 8A , 2F , 21 , F8 , F7 , ES , 7E , 23 ,86, FO 
,21, B8, 88,21,00 ,20, 11 ,00,38,FS,C0,7F,C3 
,21 ,00,00, 11, Oflíl^Fl ,C^7F ,03,11,48,77 
, FO . 19 , FD , 22 , F8 , F7 , El , , C9, 20 ,30 ,0E 
,01,E7,QO,CQ,4A,00,47,23,CD,4A»00,B8,28 
,0D,FD 

1 00 DATA36 , 00, 00 , F0, 23, F0, 70, 00,FD, .23, 1 
8,E4,OC,28,OB,23,CO,4A I 00,B8,20,05,E7,2 
0^3,00,00^0,71,00, 18,E3,E7,D0,FD,46,0 
, AF , B0 , 20 , 00 , FD , 7E , 1 , CD , 4 D , 00 , 23 , FO , 2 
3 l FD,23,i8,EA,FD,7E,01 l C0,40 l 00,23,10,l 
7,18, EF 
110 DATA10 

PRUEBA DE 
FUNCIONAMIENTO 

Cuando hayas tecleado la rutina en 
un ensamblador o ejecutado el cargador 
de líneas DATA, te recomiendo que te- 
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elees el siguiente programa BASIC. Sir- 
ve para comprobar el correcto funciona- 
miento de la rutina. 

Luego de hacer un pequeño dibujo, el 
programa llama al compresor y borra la 
pantalla. Acto seguido espera la pulsa- 
ción de una tecla y vuelve a colocar la 
pantalla en su sitio invocando al des- 
compresor. Asimismo, te indicará el 
tiempo empleado en la operación y el 
número de bytes consumidos en com- 
primir la pantalla. He aquí el listado: 



LISTADO 3 



10 SCREEN2:KEY0FF 

20 PI=3 1415928 

30 F0RF=-PITOPISTEP.2S 

40 Y=SIN(F):X=C03(F) 

50 LINE(X*50M27,Y*40+96)-8TEP(90*X,Y*9 

C),A6S(Y*16),BF 

60 NEXT 

70 0EFUSR7=50000 i :TIME=0 
30 A=USR7(0):T=TINE/50 
•30 SCREEN0 

100 PRINT-TIEHPÜ EMPLEADO EN COMPRIMIR 

:"TV 

110 F'R I NT" MEMOR I A USADA: "A"by tes 

120 L0CA7E0.. 20: PRINTTABÍ 10) "PULSA UNA T 

ECLA" 

130 Z$=iNKEY$:IFZí=""THEN130 

140 SCREEN2: TIME=0 

150 A=USR7(l):T=T!ME/50 

160 Z$=INKEY$:IFZ$=""THEN160 

170 SCREEN0 : PR I NT " T I EMPQ EMPLEADO EN DE 

SC0MPRIMIR"TV 

130 60T0110 

USOS DE LA RUTINA 

Como ya he dicho, el uso de la rutina 
es indicado en cualquier aplicación que 



necesite de un buen número de panta- 
llas y no pueda permitirse perder el tiem- 
po que el BAslC tarda en dibujarlas. 
Además, el espacio que ocupa la repre- 
sentación del gráfico de una función o el 
de un diagrama estadístico (de barras, 
de tarta, etc) es realmente pequeño. En 
la práctica, un Kbyte suele ser suficiente 
para contener estas pantallas. Puesto 
que los ordenadores de 64K tienen 32K 
libres para almacenar datos, es fácil dis- 
poner de bastantes pantallas gráficas 
en la memoria, ahorrando, asimismo, to- 
das las líneas BASIC que serian nece- 
sarias para realizar cada uno de los di- 
bujos. 

Otra ventaja sustancial es el ahorro 
de velocidad y espacio que se logra al 
guardar las pantallas comprimidas en 
algún soporte magnético (o al mandar- 
las a través de un MODEM). Por cierto, 
si piensas grabar alguna de ellas, debes 
tener en cuenta que he colocado el buf- 
fer en la dirección 35000. La instrucción 
a utilizar es: 

BSAVE" NOMBRE", 35000, 35000 + 
memoria usada. 

MODIFICACIONES 
EN LA RUTINA 

La rutina puede ser modificada para 
adaptarse a cada necesidad en particu- 
lar. Tal como está construida, el buffer 
se halla siempre en el mismo sitio, lo que 
hará que la compresión de una nueva 
pantalla borre totalmente la anterior. Tal 
vez sea interesante ir desplazando el 
inicio de este buffer a medida que se van 
almacenando las pantallas, de suerte 
que una empiece donde acabe la ante- 
rior. La forma de hacerlo desde el BA- 
SIC es con una línea como estas: 

10 POKE & HC35C, dirección -256 * 

INT(dirección/256) 

20 POKE & HC35D, dirección/256 




La manera de incrementar la variable 
«dirección» es hacer a cada compre- 
sión: 

dirección = 35000 +A 

No olvides que la variable «A» es la 
empleada para transferir parámetros y 
contendrá siempre la diferencia entre el 
principio del buffer (35000) y el final ac- 
tual. 

Por otra parte, la rutina está montada 
de forma que actúe sólo en la zona de 
nombres y del color de SCREEN2. Esto 
puede ser alterado haciendo que el re- 
gistro HL apunte al inicio de una nueva 
zona y DE al final de la misma. Lo que 
deberás tener presente es que, al volver 
a poner en su lugar una pantalla almace- 
nada en la memoria o en la cinta, el re- 
sultado puede no corresponderse con el 
original. Es preciso, además, que todos 
los registros del VDP sean preservados. 
Si programas en BASIC, lo único que 
deberás tener en consideración es el 
tipo de SCREEN y el de los SPRITES, 
que han de quedar como en el original. 

Otro punto a tener en consideración 
es que la rutina no hace comprobacio- 
nes sobre la dirección del puntero, así 
que deberás poner cuidado en que no 
acabe escribiendo datos sobre ella mis- 
ma. 

ALMACENAR 
LA PANTALLA 

Para concluir y por si aún no sabías 
cómo grabar la pantalla completa en la 
cinta (sin comprimir), te facilito una ruti- 
na muy simple para hacerlo. 

Se trata de poner toda la RAM de ví- 
deo en la RAM central a partir de la di- 
rección 38000. Luego, sólo tienes que 
grabarla con: 

BSAVE"NOMBRE", 38000, 54384 

Esta rutina está colocada en la posi- 
ción 55000, así que deberás lanzarla 
con DEFUSR = 55000. 

Por otro lado, para llamar a la rutina 
inversa, encargada de volver a poner la 
pantalla en su sitio, debes hacer un DE- 
FUSR = 55013, seguido de un A=USR 
(0) o similar. 



LISTADO 4 



10 0R6 55000 

20 BUF: EQU 38000 
30 i 

40 ; MOVER LA PANTALLA A LA RAM 
50 ; 

60 LD HL.O 

70 LD DE, BUF 

80 LD BC, 16384 

50 CALL 159 

100 RET 
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lio ; 

120 j 

ISO ; 

140 

150 

160 

170 



RECUPERAR LA PANTALLA 

LD HL.BUF 

LD 0E,0 

LD BC, 16384 

CALL ISC 



LISIADOS 



10 ' 

20 1 GRABADOR/CARGADOR 

30 ' 

40 F0RX-5S000 ! T055025 ! : READVS 
SO POKEX , VAL( "&H'+VD ! S=S+P£EKÍ X i 
60 NEXT 



70 1FSÜ17437HENBEEP;CLS:PRINT"HAY UN E 
RROR" 

80 DATA2í,00,00-,ll,70,34,01,00,40.CD,53 
,00,09,21, 70, 34,11, 00, 00,01,00,40,00, SC 
,00,03 



Por JOAQUIN LOPEZ 




NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX 2. a Edición 

N.°» 1,2,3,4 - 450 PTAS. 



MSX 2.* Edición 

N. M 5,6,7,8 -475 PTAS. 



MSX9 1 50 PTAS. 



MSX10 150 PTAS. 



MSX 11 150 PTAS. 



MSX12.13 300 PTAS. 



40 ' y ( ffí ~ . ■ YAMAHA CX 5M ¡X ¿j=53=3-> 



MSX14 160 PTAS 




MSX15175 PTAS. 



MSX16175 PTAS. 



MSX17175 PTAS. 



MSX18 175 PTAS. 



- I códig I 1 



MSX21 175 PTAS. 



MSX CODIGO 
MAQUINA - 275 PTAS. 



MSX22 175 PTAS. 




MSX19.20 350 PTAS 




MSX ESPECIAL 
SOFWARE - 275 PTAS. 



MSX23 175 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 
-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 
- — — BOLETIN DE PEDIDO - - 



r 




Deseo recibir los números 

para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 

Población 



n. c 



de SUPERJUEGOS EXTRA MSX 

a la orden de Manhattan Transfer, S_A_ 



Tel. 



DP. 



Prov. 



«Wo — m tmStm contr i f mb fl U o 




POR CLAUDIA TELLO HELBLING 



VAMPIRO 



Manhattan Transfer 
Formato: cassette 32K 



Vampiro te plantea una divertida 
excursión al castillo del famoso 
conde de Transilvania, vamos, el 
Drácula. El protagonista es Guillermo, un 
tío con sus pelos parados, muy moderno 
él, que decide meterse guiado por ti al cas- 
tillo y enfrentarse a fantasmas, calaveras 
y monstruos de toda índole. Su misión es 
atravesar todas las salas del castillo que 
son asimismo otras tantas pantallas. Si 
bien el nivel de dificultad es el mismo du- 
rante todo el Juego, necesitas mucha habi- 
lidad para ir superando las constantes di- 
ficultades y obstáculos que el Vampiro tie- 
ne diseminados en su lóbrego castillo, 
quiero decir murciélagos letales, espec- 
tros, etc. Dar saltos, subir escaleras, bajar 
a oscuros sótanos y por fin salir otra vez 
al exterior, pero la cosa no queda ahí. 
Quiero decir que si bien el juego finaliza, 
tienes una gran sorpresa pues lo que apa- 
rece es... 

Tienes seis oportunidades de sobrevivir 



y salir adelante. No puedo decirte mucho 
más porque en realidad se trata de un Jue- 
go de misterios y desvelarlos significaría 
quitarle emoción. Esto no quiere decir que 
sólo puedas jugarlo una sola vez, sino que 
es muy atractivo ir descubriendo los peli- 
gros paso a paso. 

Una cosa, al finalizar el Juego por elimi- 
nación o porque hayas conseguido tu obje- 
tivo, aparecerá en pantalla un OK. Si quie- 
res seguir jugando sólo tendrás que pul- 
sar P5 y luego elegir joystick pulsando 1 o 
teclado pulsando 2. 

Que tengas suerte y sobre todo no olvi- 
des la ristra de ajos y el crucifijo de plata. 



Grafismo: bueno 
Sonido: correcto 

Conclusiones: entretenido y muy promete- 
dor. Los colmillos de Drácula siempre están 
dispuestos. 
Precio: 800 pts. 



SHARK HÜNTER 



E. Software/Senna 
Formato: tarjeta 
Mandos: teclado 
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He aquí un pobre pescador que está 
desesperado por defender su pes- 
ca. La causa de su desesperación 
os la explicamos a continuación. Resulta 
que este buen señor se pasa días y días re- 
mendando redes, que los malvados tiburo- 
nes le destruyen constantemente. Hay 
una única manera de alejar a estos visi- 
tantes tan dañinos y el sufrido pescador 
tiene que disparar sus dardos de manera 
casi continua para poder defender sus re- 
des. Pero este no es el único problema que 
se le presenta, ya que los icebergs que vie- 
nen de alta mar también destruyen sus re- 
des de una manera tan desafortunada que 
se le escapan los peces que había en ellas, 
y que son el elemento vital y necesario 
para alimentar a su pueblo. 

Si de verdad te conmueven estas odiseas 
del pobre pescador y quieres ayudarlo 
para que pueda descansar, tú debes ocu- 
par su lugar, pero cuidado cuando estés en 
el agua porque estos tiburones están muy 
hambrientos y no les basta con alimentar- 
se de peces... 

Los icebergs, al contrario que los tiburo- 
nes tienen una ventaja, porque te sirven 
de apoyo para cruzar de una isla a otra, 
pero ¡Cuidado! no te demores mucho enci- 
ma de una sola isla puesto que tu peso pue- 
de hundir el hielo. 

Contarás con un arpón para defenderte 
pero sólo puedes correr vertical u hori- 
zontalmente. 

Los puntos los consigues por cada tibu- 
rón que caces (20 puntos), por cada red 
reparada (10 puntos), y por hundir ice- 
bergs (30 puntos). Además al finalizar la 
partida se cuentan los peces que has sal- 
vado y se suman a los puntos obtenidos 
hasta el momento. 



Grafiflmo: muy bueno 
Sonido: correcto 

Conclusiones: juego divertido que pone a 
prueba la rapidez de reflejos y la habilidad 
para salir de los continuos trances del pro- 



SWEET ACORN 
(LA BELLOTA) 



Serma/E. Software 
Formato: tarjeta 
Mandos: teclado o joysück 



El objetivo del juego es ayudar auna 
traviesa bellota a escapar del jar- 
dín mágico. Este jardín está habita- 
do por Judías y pimientos que persiguen a 
las bellotas. Pero estas que son muy espa- 
biladas, antes de quedar atrapadas en el 
jardín se habían provisto de pequeñas be- 
llotas, las que luego en los momentos de 
peligro les sirven de armas para defender- 
se de sus enemigos. 

Una vez que comienza el juego, nuestra 
amiga la bellota debe eliminar a todos los 
enemigos que se les presente. Pero hay un 
problema... en el Jardín, aparte de judías y 
pimientos se encuentra unos objetos que 
obstaculizan los disparos de la bellota. 

Para disparar es necesario que midas 
antes la potencia del disparo, y para ello 




_ 



— 



tienes el medidor en la parte superior de la 
pantalla. íAhhh!, debes tener mucho cui- 
dado ya que las paredes del jardín permi- 
ten que las pequeñas bellotas reboten y 
esto da como resultado que tu bellota que 
en un principio te servía de defensa, ahora 
se vuelva atacándote a ti. 

Tanto las judías como los pimientos 
pueden ir cambiando de colores. Pimien- 
tos blancos a los que no debes temer; pi- 
mientos amarillos que son lentos pero pe- 
ligrosos; pimientos rojos que se dividen 
en dos al ser tocados por una bellota de- 
fensiva; pimientos azules que os dejarán 
tesoros; pimientos negros que son los más 
peligrosos y por último pimientos mági- 
cos que son invisibles. También se en- 
cuentran en este jardín una criatura en 
forma de bola que sale de vez en cuando 
para atacar a las bellotas. ¡Ten cuidado!, 
ésta es la parte más peligrosa. 



Grañsmo: correcto 
Sonido: apropiado 

Conclusiones: juego de habilidad. Recomen- 
dable para los fanáticos de este tipo de juegos. 





WARRIORS 



Dinamic 

Formato: cassette 
U teclado o je 



Si eres atrevido (o atrevida) introdú- 
cete en el misterio que encierran es- 
tas 4 emocionantes etapas que voy a 
presentarte. Dichas etapas las podríamos 
definir como cuatro mundos diferentes 
que tendrás que recorrer e incluso, yo te 
diría que de una manera más intrigante, 
ya que podrás hacerlo en contra del tiem- 
po, hasta llegar al fantástico mundo del 
Rey Arturo. 

1.° MUNDO: El Bosque; Aquí hay que 
destacar a Aznaht, amo del bosque y a su 
hechicero. Este último te ayudará a salir 
de aquí si consigue con su hechizo conver- 
tirse en un «batracio». Pero como la cosa 
no puede resultar tan fácil aparecerán 
otros personajes tan siniestros y peligro- 



sos que te mantendrán el estado de alerta 
pues en cualquier momento puedes caer 
en una nueva trampa o sucumbir bajo los 
efecto s de un nuevo hechizo. 

8.° MUNDO: SI Lago; Nuevos obstácu- 
los te esperan en esta etapa como son: los 
peces asesinos, medusas que transmiten 
electricidad si las llegas a tocar, etc. Para 
no llevarte una sorpresa debes saber que 
este lago tiene un rey llamado Kindo. 

3.° MUNDO: Las Grutas; Has conse- 
guido llegar al mundo de las grutas, que es 
un ambiente totalmente desconocido para 
los que viven en la superficie y por lo tanto 
tendrás dificultades para respirar; ¡Apú- 
rate chico!, has de encontrar la salida 
cuanto antes para no asfixiarte. Y cuidado 
con los tropiezos, ya que el dragón Azor- 
nic, señor de las grutas, puede salir a tu 
encuentro y te pondrá las cosas más com- 
plicadas. 

Y por fin el 4.° MUNDO: El Castillo de 
Camelot, donde tendrás el honor de cono- 
cer al famoso Rey Arturo. Para salir de 
este «pasillo del tiempo», deberás antes re- 
solver el enigma de este mundo. Resulta 
que en este lugar hay cuatro elementos del 
siglo xx, debes coger los cuatro y presen- 
tarlos a los amos que irás conociendo en 
esta etapa. Para defenderte de brujos, dra- 
gones, trampas, etc, posees una bonita y 
fiel espada. Los movimientos que efectúas 
son los normales, además de un potente 
salto para esquivar ciertos peligros. 




Graflsmo: muy bueno 
Sonido: correcto 

Conclusiones: es un juego de laberinto y 
misterio al estilo de la famosa Booga Boo, 
muy bien diseñado. Vale la pena. 
Precio aprox. 2.300 pts. 



MAD FOX 

Instrucción de carga: 
CLOAD "MADFOX 
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REPRESENTACION DE FUNCIONES GRAFICAS 

torianultíbnátlOné 



Interesante programa educativo, especialmente pera^ 

B programa de Representación gráfica de ranclones tiene una serie de aspectos interesantes para estudiantes y profesores, 

a quienes facilita la comprensión de sus aplicaciones. 
A modo de ejemplo señalemos qne la opción 4 permite conocer haata 28 gráficas distintas, las más importantes de las cuales 

han sido programadas de antemano. 

Las opciones 1 , 8 y 3 permiten introducir cualquier función para conocer cuál es su representación gráfica en cualquiera de las coordenadas más usadas, 

es decir, cartesianas, paramétricas y polares. 
Una ve! terminada la representación gráfica sólo basta con pulsar Fl para volver al menú principal. 



[REPRESENTACION GRAFICA | 
I DE FUNCIONES | 

I I 
I Jaune Dellunde | 



10 ' 

15 ' 

20 ' 

25 ' 

30 ' 

35 ' i — i 

40 ' 

60 ONEPROR6OTO1170:GOTO350 

70 ' 

80 ' Ecuaciones introducidas 

100 Y=COS(X) 
150 RETURN 
200 X=5tC0S(T) 
250 Y=5*SIN(T) 
275 RETURN 
300 R=1+C0S(Z) 
310 RETURN 
320 ' 

330 ' Presentación 
340 ' 

350 SCREEN0, , 0: WIDTH37: KEYOFF: COLORI , 1 1 , 

1 1 : KEY1 , "GOTO890"+CHR$ ( 13) : KEY2, "GOTO104 

0"*CHR$(13)!KEY3."GOTO1250- + CHR$(13):PRI 
NT 

360 PRINT" | 

3^0 PRINT" | REPRESENTACION GRAFICA 

360 PPINT" I 

390 PRINT" | DE FUNCIONES 

400 PRINT" 1 



410 LOCATE?, ?:PRINT"M E N U" 

420 LOCATE0,12:PRINT"1 s En coordenadas 

cartesianas":PRINT:PRINT'2 s En coordena 

das paraiétricas";PRINT:PRINT"3 s En coo 

rdenadas polares":PRINT:PRINT"4 s Gráfic 

as elaboradas":PPINT:PRINT"5 s Fin de pr 

ograw' 







430 PLAY"V8Q4L64CEC n 

440 YU=VAL(INKEY$):IFYLK1ORYU>5THEN440EL 
SEPLAY H ECE" 

450 ONYUGOTO870, 1020, 1230. 1420 
460 CLSsEND 
470 ' 

480 ' Ejes cartesianos 
490 ' 

500 SCPEEN2:0PEN"GRP:"AS1 
510 LI=FIX(A) 

520 DI=240/(B-A):DO=240/(B-A)*A 

530 DRAW"B!'!10.95R23 < W10,0R255D191L255":S 
T=1/DI 

540 FORX=ATOBSTEPST 

550 IFX>=LITHENGOSUB670: DRAM"BM=XP; , 94D2 
":LI=LI+1:IFLI=1THENDRAH"BH=XP;,191U191" 
:PSETSTEP(3,0):PRINT#l,'y":XD=XP-l 
560 NEXTX:PRESET(242,B6):PRINTtl,V 
570 X=A:GOSUB670:P1=XP 
580 X=A+1:GOSUB670:P2=XP 
590 DF=INT(P2-P1) 
600 FORI=0TO150 

610 IF(I-73.5)HODDF=0THENPR=II1.3:DRAH"B 

M=XD;,=PR;R2- 

620 NEXTI 

630 RETURN 

640 ' 

650 ' Cambio de base 
660 ' 

670 XP=10+DIIX-DO 
680 YP=95-DItY»1.3 
690 RETURN 
700 ' 

710 ' Suborograna de datos 
720 ' 

730 CLS:LOCATE2,10:PRINT"GPADO DE RESOLU 
CION (1-3)? , ;:D=VAL(INPUT$(1)):IFD=0OR 



. 



D>3THEN730 

740 IFD=1THENND=.5ELSEIFD=2THENND=1ELSEN 
D=2 

750 RETURN 

760 CLS: L0CATE1 , 10: PRINT"REPRESENTACION 
CONTINUA (S/N)? "j 

770 FR$=INPUT$(1):IFFR$="S"QPFR*=VTHEN 
C0=l:RF=lELSEIFFR$<>"n"ANDFR$<>"N"THEN77 


780 RETURN 

790 CLS: LOCATE0, 10: INPUT" INTERVALO A CON 
SIDERAR (a,b)";A,B:IFA>=BTHEN790 
800 RETURN 

810 0NKEYG0SUB1 190: KEY ! 1 ) ON: RETURN 

B20 CLS:L0CATE3,8:PRINT'VARIACI0N DEL":L 

OCATE3,10:INPUT"PAPAMETRO T (Ti,Tf! , ;T0. 

TI : IFT0>=T1THEN820ELSERETURN 

830 CLS:L0CATE3,8:PRINT"VARIACI0N DEL": L 

OCATE3,10:INPUT"ANGULO 8 (9i,9f ) ";A1,A2: 

IFA1 >=A2THEN830ELSERETURN 

840 ' 

850 ' Gráfica en cartesianas 
860 ' 

870 CLS: LOCATE0, 3: PRINT"COORDENADAS CART 
ESIANAS':LOCATE0,6:PRINT'Hay que introdu 
cir la función en la línea 100 en la fo 
na Y=f(X)" 

880 LOCATE0,?:PRINT"EJEMPLO: ,, :PRINT:PRIN 
T-100 Y=COS(X)':PRINT:LOCATE0,14:PRINT , C 
uando acabes pulsa Fl. ":PRINT"Para aband 
onar la gráfica taibién F1.":PRINT:END 
890 KEY1 , " " : GOSUB790: GOSUB730: GOSUB810: G 
OSUB760:GOSUB500 

900 ONERROR6OTO1170:ST=(B-A)/240/ND 
910 FORX=ATOBSTEPST 

920 IFHO0THENGOSUB1570ELSEGOSUB100 
930 GOSUB670: IFER=1THENRF=0:GOTO960 





!UI HALLARAS TO 
:L SOFTWARE DEL 
MERCADO EN MSX. 
NO TE LO PIERDAS. 
Programas de jueg 
utilidad, educativo 
gestión. Una guía 
completa con más 
de 100 títulos. 
Cassettes, cartuchos 
diskettes, tarjetas y 
libros. 

Además todas las 
empresas de hardware y 
software con sus 
direcciones y teléfonos. 
Un número 
imprescindible para 
usuario MSX. 
YA ESTA EN TU 
QUIOSCO 

MSX CLUB ESPECIAL 



mwcm 



a el 





OOnfZDQPtOC 

i i\uui\m a i-i 



940 IFRF= 1 ANDX >ATHENL INE- (XP, YP) ELSEFSET 

(KP.YP) 

950 P.F=CO 

«60 ER=0:NEXTX 

9 7 GDTQ1380 

"80 ' 

90? ' 

1000 ' Gráfica en oaramétricas 
!0!0 ' 

1020 CLS:LOCATE0.3:PRINT"COORDENABAS PAR 
AKETRICAS"iLOCATE0. 6: PRINT'Hay que intro 
ducir las ecuaciones en i as líneas 200 y 

250 en la feria H(T) e Y=f 'T> con 

T cono parámetro." 

1030 LQCATE0, líi PRINT'EJEHPLOs " i PRINT: PR 
INT"200 X=5*CCS^":F< : INT"250 Y=5*SIN(T) 
":LOCATE0.16:PF:!NT ,, Cuandc acabes pulsa F 
2. B : pt rINT"Para abandonar la gráfica puls 
a c l. ": D RIN7:END 

10¿0 KEY2 , " - : 5OSUB7O0: GQSUB820 : GOSÜB730: 

5CSL'FB10:GOS , JE!7é0:GOSüP500 

1050 ONERPCF:GOTCil70:ST=(Tl-T0)/240/ND 

!0¿0 FÜRMfTüTlSTEPST 

10^0 : c H<:>0™ENGCSüB1570ELSEGOSUB200 

1060 GOSUB670 

1090 :FER=1THENR c =0:GOTO1120 

1100 :FRF=1ANDT>T0THENLINE-(XP.YP)ELSEPS 

ETíXP.YP) 

lllf PP=CO 

1120 EP=0:NEXTT 

1130 60101380 

1140 ' 

1150 ' Errures 
1160 ' 

1170 IFEFF=110FERR=60FEPF=5THENER=1:RESU 
MENEXTEISE!FERR=2THENSCREEM: CLS: LOCATE! 
,10:PFINT"Error je sintans en la linea" 
ERL: PRINT: PRINT: END 

1180 SCF:EEN0:PR!NT'»ERROP"ERP"EN LA LINEA 
'ERL: END 
11=0 RUN 
1200 ' 

1210 ' Gráfica en colares 



113? CLS: LOCATE0, 3: PRINT" COORDENADAS POL 
ARES":LOCATE0.6:PRINT n Para representar 1 
a función en la forma r=f(6) hay que 
introducirla en la línea 300 en la forma 
R=flZ),con R el módulo y Z el ángulo." 
1240 LOCATE0, 11:PRINT-EJEMPL0: ":PRINT:PR 
INT-300 P=l+COS(Z) n :LOCATE0,15:PRINT"Cua 
ndc acabes pulsa F3. ":PRINT"Para abandon 
ar la gráfica pulsa Fl . " : PRINT: END 
1 250 KEY3, " 8 : GOSUB790: GOSUB830: GOSUB730: 



6OSUB810: GQSUB760: 5OSUB500 

1 260 0NERR0R60T01 170: ST= ( A2-A1 ) /240/ND 

1270 FORZ=A1TOA2STEPST 

1280 IFHO0THENGOSUB1570ELSE6OSUB300 

1290 X=RtCOS(Z):Y=R*SIN(Z) 

1300 EOSL'B670:IFER=1THENRF=0:GOTQ1330 

1310 !FRF=1ANDZ>AN1THENLINE-<XP,YP)ELSEP 

SET(XP.YP) 

1320 P.F=CO 

1330 ER=0:NEXTZ 

13*0 GOTO1380 

1350 ' 

1360 1 Fin de gráfica 
1370 » 

1380 COLOR, ,6:FQPI=1TO!0:MU=RND(1M8*1:M 
Uí=CHF:$ (65*RND (1)16): PLAY"V8L640=MU; XMUS 
; M :NEXTI:COLOP.,2:FOPI=1TQ400:NEXTI:GOTO 
1380 
1390 ' 

1400 ' Gráficas elaboradas 
1410 ' 

1420 CLS:PRINT" MENU DE GRAFICAS (I) 
i 

1430 LOCATE0,5:FOPI=1TO13:READH$:PRINTSP 
C(5)HEXf(IP 5 "H$:NEXTI 
1440 LOCATE0,20:PRINT»SELECT s Otras grá 
ficas "; 

1450 J$=INPUT$(1):IFJ$=CHR$(24)THEN1460E 
LSEH=VAL ( " " + J * ) : I FH< 1 ORH > 1 3THEN 1 450ELS 
E1500 

1460 CLSsPRINT" MENU DE GRAFICAS (II 
)' 

1470 LOCATE0.5:FQRI=1TO12:READH$:PRINTSP 
C(5)HEX$(I) B s "H$:NEXTI 
1480 LOCATE0,20:PRINT"SELECT i Menú prin 
ci cal 

1490 J$=INPUT$(1):IFJ$=CHR$(24)THENRUNEL 
SEH=13+VAL("ítH n +JI):IFH<l4ORH>25THEN1490 
1500 GOSUB1550 

1510 GOSUBB10:GOSUB500:ONAAGOTO900,1050, 

1260 

1520 ' 

1530 ' Selección de gráficas 
1540 ' 

1550 ONHGOTO1620, 1640, 1660, 1680, 1700, 172 
0, 1740, 1760, 1780. 1800, 1820, 1840, 1860, 188 
0, 1900, 1920, 1940, 1960, 1990,2010,2030, 205 
0,2070,2090,2110 
1560 RETURN 

1570 ONHGOTO1630, 1650, 1670, 1690, 1710, 173 
0. 1750, 1770. 1790. 1810, 1830, 1850, 1870, 189 
0, 1910, 1930, 1950, 1970, 2000, 2020, 2040, 206 
0,2080,2100,2120 
1580 RETURN 



1590 ' 

1600 ' Ecuaciones elaboradas 
1610 ' 

1620 AA=3:ND=1:C0=1:B=.9:A=-B:A2=6.3 
1630 R=. 5: RETURN 

1640 AA=2:ND=1:C0=Í:B=.9:A=-B:T1=6.3 
1650 X=.7»C0S(T):Y=.5»SIN!T) ¡RETURN 
1660 AA=2: ND=3: A=-l : B=5: TI =2: T0=-2 
1670 X=T*T:Y=T: RETURN 
1680 AA=1:ND=3:A=-5:B=5 
1690 Y=1/X:RETURN 
1700 AA=1:CO=1:ND=1:A=-10:B=10 
1710 Y=SINIX):RETURN 
1720 AA=1:C0=1:ND=1:A=-7:B=7 
1730 Y=TAN(X) ¡RETURN 
1740 AA=1:ND=2:A=-10:B=10 
1750 Y=INT (X) : RETURN 
1760 AA=1:ND=2:B=8:A=-B 
1770 Y=X-INT í X ) : RETURN 
1780 AA=1:ND=1:C0=1:B=.9:A=-B 
17°0 Y=ABS (X) : RETURN 

30 AA=1:ND=1:C0=1:B=4:A=-B 
1810 Y=l/(l+XtX):RETURN 
1820 AA=1:ND=1:C0=1:B=6:A=-B 
1830 Y=EXP (X > : RETURN 
1840 AA=2:ND=l:CO=l:A=-i:B=5:Tl=1.8:T0=- 
Tl 

1850 X=EXP(T):Y=T:RETURN 
1860 AA=1:C0=1:ND=1:B=2.5:A=-B 
1870 Y=EXPÍ-X*X) ¡RETURN 
1880 AA=1:ND=1:C0=1: B=7: A=-B 
1890 Y=(EXP(X)+EXP(-X))/2:RETURN 
1900 AA=2:ND=2:A=-3:B=3:T1=10:T0=-T1 
1910 X=3»T/(l+T»TtT):Y=3ITtT/(l+TtT$T):R 
ETURN 

1920 AA=2:ND=2:A=-.3:B=1:T0=-.9:T1=.9 
1930 X=T»T/ 11+TtTJ : Y=T* W/ ( 1+TIT) : RETUR 
N 

1940 AA=3:ND=1:C0=1:B=1.5:A=-B:A2=6.3 

1950 R=SQR(C0S(2tZ) ): RETURN 

1960 AA=1:ND=3:B=2: A=-B 

1970 Y=SQR(XtXt(X+l)/(l-X)):IFRND(lX.5T 

HENY=-Y 

1980 RETURN 

1990 AA=2: C0=1 : ND=I : A=-3: B=27: T0=-3: Tl=2 
8 

2000 X=T-SIN(T) :Y=l-COS(T) ¡RETURN 
2010 AA=2:ND=1:C0=1:B=2:A=-B:T1=6.3 
2020 X=CDS (T) A 3: Y=SIN (T) A 3: RETURN 
2030 AA=3:ND=1:C0=1¡A=-2:B=3:A2=6.3 
2040 R=1+C0S(Z) ¡RETURN 
2050 AA=2: ND=1 : C0=1 : B=20: A=-B: Tl=20 
2060 X=COS(T)+TISIN(T):Y=SIN(T)-TtCOS(T) 
¡RETURN 



oonízoofnoc 
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2070 ftft=3: C0=1 : ND=1 : B=20: ft--Bs A1=0: A2=20 

2080 R=Z/2:RETURN 

2090 AA=3:C0=1:ND=1:B=2.5: A=-B:A2=3.2 

2100 R=SIN(3tZ):RETURN 

2110 AA=3:C0=1:ND=1:B=2.5¡A=-B:A2=6.3 

2120 R=ABS(SIN(2IZ)):RETURN 

2130 DATACircunferencia, Elipse, Parábola, 



Hipérbola, Sinusoide, Tangentoide y asinto 
tas, Función parte entera, Función parte f 
raccionaria, Función valor absoluto, Curva 
de Agnesi 

2140 DATAFunción exponencial, Función log 
arítfflica.Curva de Gauss, Catenaria (Chx 
Foliu» de Descartes, Cisoide de Diocles, L 









emniscata de Bernculli , Estrcf oide.Cicloi 
de.Hipocidoide (astroide) 
2150 DATACardioide.Envolvente circunfere 
ncia, Espiral de Arquímedes.Posa de tres 
cátalos. Rosa de cuatro pétalos 



TEST DE LISTADO — 

Para utilizar el Test de Listados que ofrecemos 
que cargar en el ordenador el Programa 



al final de cada programa, recordamos que previamente hay 
aparecido en nuestro número 1 0, de octubre , pág. 29. 
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Nombre y apellidos 



Calle 



Ciudad 



Provincia 



Tel. 



SUSCRIBETE HOY MISMO SI 



QUIERES ESIAREN VANGUARDIA 



La primera revista de MSX de España en tu domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, SJL 
— — — — — — — — 

Deseo Suscribirme a la revista Muy importante: para evitar retrasos en la 

SUPERJUEGOS EXTRA MSX recepción de loa números rogamos deta- 

a partir del número 

FORMA DE PAGO: Mediante talón ban- 
carlo a nombre de: 

MANHATTAN TRANSFER, SJL 
O/. Roca i Batlle, 10-18 



Uéla exactamente el nuevo número de loa 
distritos postales. Gracias. 



08023 Barcelona 



Bapafla por correo normal 
Europa correo normal 
Europa por avión 
América por avión 



Ptae. 1.780,- 
Ptas. 2.000,- 
Ptaa. 2.800,- 
88 USAS 






o 




_ - 



GENETICA 

Por Luís Gomálei 

Programa educativo que explica aspectos fundamentales de la genética y que introducen al estudiante en aplicaciones prácticas de la materia. 
Lo más interesante de este programa, ojie estrnctnralmente ha sido dividido en dos partes, e s que la primera introduce al alumno en la materia y en la segunda 

le permite realizar algunos experimentos. Añude tener una idea práctica de este punto su autor nos remite el siguiente ejemplo: 
En el conejo, la piel con manchas (H) es dominante sobre la piel uniforme (m) y el color negro (N) es equipolente con el pardo (P) ¿Cuáles serán los genotipos 
del cruzamiento de un conejo con manchas y negro híbrido (MmNN) con otro de color uniforme y pardo oscuro (mmNP) y cuál es su porcentaje? 
Para encontrar la solución hasta con introducir los datos a medida que el ordenador los solicite: 
Para CARACTERES teclee «COLOR» y «UNIFORMIDAD» 
Para GENOTIPO MACHO COLOR... NN FENOTIPO... legro (híbrido) 
Para GENOTIPO MACHO UNIFOR... Mm FENOTIPO,. Manchado (híbrido) 
Para GENOTIPO HEMBRA COLOR... NP FENOTIPO... Marrón oscuro 
Para GENOTIPO HEMBRA UNIFOR...mm FENOTIPO,. Uso 
Después de cada entrada teclee RETURN. 



10 'mitmmmimmmttmtt 
I? 'tUtU [-ENETICA ttuittt 
33 -Mttti °GF LUIS ¡QNZALII tttttt 

;$ -mimo para extrs-msx nnmt 
50 'mmtmtttmmmmtmft 

tí ÜLEftr m 

n :E--S-'-!::E-U3 : 2=h3 

:•: : . i : c c> evg-d: í: a=#: : bcreen2 

?i :-:si : 5 !3ó0 
m mm m 

m i=u re m ste c -í5:c:>cle!20.e+; 

),S.,.,Í.4;f0í? W=Í T G4 

::c : c «"ba2g."*S ? ^iE*«)+"cl4l9l5gl2g3d 

m ííEXTW. E 

i¿$ m»tm» bloque i ittttlitti 

170 KL=23 

\B<? A=30:B=70;R=10:MA=3B:3N$= ,, TEDFIA ,, :5O 
SL$«M 

193 A=60:B=?0:SN$=' , C t; OMOSOMICA":SOSUB400 

¡IOSÜBS20 

200 *E3T0RE 550 

210 R=5: A=2B: B=10: READSNS: SOSUB400 
220 A=2B:B=B*10;PEAD SN$:GQ3UB400 
230 A=2B:f\EAD SN$:ECSüB400 

2« a=2b:b=b+í0|read 3n$: 5gsub510:na=30: 
bgsl'3860 

250 &=28:b=í0:read sn$:5osub400 

26? a=26: e=b+10: reapsns: sosub400: 50sub52 



270 A=28:B=10:P.EAD SN$:GOSL¡B400 

280 FOR 8=1 10 3:A=38:B=B+10:READ SN*:G0 

SUB400: NEXTQ: GOSUB5I0 

290 P=!0¡A=80:B=80;SN$="DETEPf!INACinN":G 



DSUB400 : A=í?:B= 5 0:3N$="ÜEL SEXO": EOSUB40 

0:EO3ÜB5!0: M A=23:R=5 

300 BOSUB700 

310 A=25:B=10:READ BN$:GOSUB400 

320 A=25:B=B*í0:READSN$:6OSüB400:bQSL'B53 



330 A=25:B=10:FEADSN$:GOSUB400 

340 A=25s B=B+10: READSNS: 6OSÜB400: G0SUB51 



350 MA=39:F=10:A=50:B=30:SN*="LEYES DE M 
ENDEL" : GOSUB400: GOSUB510: R=5: A=28:B=10:R 
EAD SN$:SOSUB400 

360 A=28: READ SN$:GOSUB400:A=28:READ SN$ 

:GDSUB400:5OSUB510:A=28:B=10:READ SN$:G0 

SUB400: A=65:READ SN$:GOSUB400 

370 A=28:B=B+10:READ SN$:GOSUB400:B=B+10 

: A=21 : READ SN$: GOSUB400: GOSUB510: A=28: B= 

10: READ SN*:GOSUB400:A=28:B=B+10:READ SN 

$: GOSÜB400: A=28: B=B*10: READ SN$: GOSUB400 

380 Ai=INPUT$(l)¡CLS:GOTD1070 

390 'ttttt EXPONIENDO EL TEXTO %%%% 

400 OC=1:LC=0:SN$=SN$+" 

410 FOR OH0LEN(SN$) 

420 LC4.C+1 

430 1F !HD$(SN$.C.l!=CHRt(32) THEN GOSUB 
460 

440 NEXTC 
450 RETURN 

460 NW$=MID$(SN$,QC,C-QC+1) 

4 7 IF LC<MA THEN FOR E= 1 TOLEN ( 0W$ ) : PRES 

ET(A.B):PPINT*1,MID*(0W$,E, 1):A=A+R:NEXT 
E:GOTO450 

480 A=KL:B=B + 10:FOPE=1TOLEN(OW$! : PRESET ( 
A,B) :PRINT#1.MIDSC0W$,E, 1 ) : A=A+R: NEXTE: L 
C=LEN(NW$) 

490 0C=C+1:QW$=NW$:RETURN 



500 'ttfttttl BORRANDO mtttmtt 

5!0 A$=INPLIT$(1):LINE!25,6)-(250, 176),1, 

BF: FETURN 

520 AS»INPÜT$(1):L!NE(25,6)-(20B,176),1. 
BF: RETURN 

530 A$=INPUT$(1);LINE(25,6)-'.174, 1761,1. 
BF; RETURN 

540 'ttm DATOS DE TEXTO %m%%% 
550 DATA"Durante el último tercio del si 
glo XIX, los conocimientos citol&gicos fu 
eron estableciendo que todas las células 
de los individuos de una misma especie 
poseen un número y morfología constante 
de sus CROMOSOMAS." 

56Í DATA"E1 número de cromosomas típico 
de una especie se denomina número DIPLQI 
DE, v se simboliza cor 2N." 
570 DATA"En la reproducción SEXUAL se ef 
ectúa una reducción de los cromosomas a 
la mitad en el oroceso llamado MEIGSIS. " 
580 DATA"Este número llamado HAPLOIDE.se 
simboliza por N." 

5^0 DATA "La condición diploide (2n) se 
restablece cuando se oroduce la ^scundac 
ión.al reunirse en una misma célula. la c 
élula huevo o CIGOTO. los N cromosomas de 
1 GAMETO MASCULINO y los N cromosomas de 
1 GAMETO FEMENINO. ■ 

600 DATA-Poster i oriente a MENDEL se demo 
stró estadísticamente que cada individuo 
es portador de DOS FACTORES HEREDITARIO 
S para cada CAPACTE-.de los cuales sólo 
transmite uno a cada uno de sus descendi 
entes. " 

610 DATA"Para terminar con la Teoria Cro 
mosómica debemos tener claro que:" 




nonrnomnr 



ru 



620 DATA"!,- Que los GENES se encuentran 
en los CROMOSOMAS. " 

630 DATA-2.- Que vanos GENES están en e 
1 aisnc CROMOSOMA, por le Que tienden a t 
ranstitirse juntos." 

640 DATA"3.- Al igual Que los cromosomas 
,lcs genes se encuentran duplicados y ad 
*sas ocupan un lugar determinado." 
650 DA T A"Cuando los GAMETOS masculino v 
femenino son producidos en diferentes in 
di vi dúos, v la clase de gameto producido 
por el individuo depende de su GENOTIPO, 
se dice aue hay una DETERMINACION 5EN0TI 
PICA DEL SEXO, y la diferenciación sexual 
depende" 

660 DATA"de la segregación de una difere 
r.cia génica en la MEIQSIS." 
670 DÁTA"E1 tipo de CROMOSOMAS SEXUALES 
en una gran variedad de animales (inclui 
do en hombre) es el llamado XY.Tras la M 
EIOSIS se producen dos tipos de CR0S0M0M 
AS 'X' y otros 'Y'.Los cruzamientos son 
siempre del tipo XX (macho) * XY (hembra 
)." 

680 DA T A"La recombinación de los GAMETOS 
da origen a un 50?. de cada sexo." 

¿o? tmmt fisura 2 mmttm 

700 p RESET(18?,30):PRINT#i/XX":PRESE T !2 

30,30):PRINT|l 1 n XY":DRAW"BMl , ?5.40D30":DP 

AW"BK236.40NM*10.*30M-10,+30" 

710 DPAW"BMl9:,75";PRINT*l, n X":DRAW"BM22 

5. 7 5":PRINTtl."X , ':DRAirBM242,75":PRINTtl 

,"Y" 

720 DRAW"BM196.35M+40, + 10M245,85":DRAr8 
«232, 105": PRINTt! . "XY" 
730 DRAWBM196, 35MM0, +40M228, 35" : DRAW'B 
«200,135":PRINTtl,"XX":RETURN 
740 DATA"MENDEL dejó sus conclusiones en 
forma de dos LEYES muv sencillas." 
750 ÜATA"La primera dice: cuando se c ruz 
an dos individuos de RAZA PURA que prese 
ntan un PAR de CARACTERES bien diferenci 
adcs.los tipos originales se separan en 
proporciones definidas en la SEGUNDA GEN 
ERACION FILIAL." 

760 DATA "En la segunda MENDEL afirma qu 

e cuando se cruzan dos o más PARES de CA 

RACTERES DISTINTOS se segregan independi 

entemente unos de otros. Esta segunda ley 

es también conocida como ley de la COMB 

INACION INDEPENDIENTE." 

770 DATA"Los CARACTERES HEREDITARIOS dep 

enden de la acción de ciertos FACTORES G 

ENETICOS o "GENES" gue los rigen. Estos 




aparecen en parejas, cuves mienbros proc 
edén respectivamente del PADRE y de la M 
ADRE" 

780 DATA", en todos los individuos fruto 
de la unión BISEXUAL. " 
790 DATA"No obstante. las células GERMINA 
LES maduras contienen solamente un mienb 
ro de cada PAP CROMOSOMICO.a consecuenci 
a de la «EIOSIS" 

800 DA T A" .proceso oor el aue los partic 
icantes se conjugan.se separan v se diri 
gen a polos opustos.al azar en la DIVISI 
ON CELULAR. " 

810 DA T A H Los mienbros de cada PAR DE FAC 
T OPES se denominan ALELOMOR c OS.Si los mi 
enbros de un par ALELOMORFO poseen natur 
aíeza similar se denominan HOMOCIGGTICOS 
,y s¡ son diferentes HETEROCIGO T ICOS. " 
820 DATA" En el último case le lás corr¡ e 
nte es que la presencia de un tipo puede 

enmascarar la del ctre. Cuando ocurre es 
to recibe el nombre de carácter DDHINANT 
E. cuando se manifiesta un carácter no do 
minante se llama RECESIVO." 
830 DATA " E 1 carácter EQUIPOLENTE es la i 
ezcla de dos caracteres con igual Ejerza 

de transmisión." 

840 'tmm q&i'RA \ tmtmtt 

350 - 

860 PRESETí210.9):PPINT*i,"AAV aa" 

87? DRAW"bm216,18nd20bm2íl,18d20" 

880 A=208:B=45:A$="MEIOSIS n :FOFX=lTOLENf 

A$^PRESETíA*Xt5.B):PRINT#l.!1ID$lA$,X f l) 

:NEXTX 

890 DRAW"BM216. 75U20BM241 , 75U20" : ORAWBM 
214,80 n :PRINT#l,"A":DRAW"BM2:9,80":PRINT 
II, V 

900 A$="FECUNDACION":F0PX=rOLEN'A$) :PPE 
SET!227.65*XI8>:PPINTtl.HID*(A$,X.Í}:NEX 
TX 

910 DPAW"BM216,90D70M+12,+4M*12,-4U70 n :P 
RESET(224,16 7 ):PRINTfl,"Aa":RE T URN 
920 'til SUBRUTINAS DEL SISTEMA** 
930 FOR X=1T0LEN(A$) 

940 PRESET(A+XtK,B) :PRINT#l, «ID$(A$, X, 11 

: NEXTX: RETURN 

950 FOR Z=1TO50 

960 RUT SPRITE0.(C-8,D-2).K,0 

970 SWAP K, Y 

"80 NEXTZ 

990 PUT SPRITE0,(C-9,D-2),15,0:PETUPN 

1000 RA$=INPUT$(!):R=P+6 

1010 IF ASC(PA$)=13THENR=0:PETURN 

1020 PRESE! (C+R, D) : PRINTI1 , RA$: RB$=RB$+R 



Al 

1030 GOTO 1000 

1040 IF M<=90 AND N<="0 AND MÜNTHENA*=" 

Equioolente":GOS l JB o 30:RETURN 

1050 IF H>-90 AND N>="0 THEN AM'Recssiv 

c'tfiOSUf9JfiRETüRN 

1060 A$= ,, Dominante":SOSUB í: 30:FETURN 
1070 'tttlttttt BLOQUE 2 tftttftm 
1080 DIM Z$(3f):K=15sY=l 
1090 RESTORE1120 

1100 FOF A=1T08«.READ Al:S*=S**CHR$(VAL(" 

^B"+A$)):NEX T A 

1110 SPRITE$'0)=S$ 

1120 DATA 00000000. 0000100?. 00000100, 000 

00010.11111111.00000010.00000100,0003100 


1 130 K=5: A$= "CARACTERES" 1 " : A=30 : 9=2'? : GCS'J 
B O 3?:C=100:D=20:GOSUB950:BEEP:SOSUB1000: 
CA$=PB*:RBí=" " 

1140 C=100:D=:0:GnSL , B c 50:3EE D :5O5L'P100?: 
CE5=PBt;PB$=-" 

1150 IFLENíCAf : ' 6 t HESCA*=M:D* 'CAi. 1. 6) 
1160 IFLENÍCEí 1 •6THENCE$=MID$(CEí, 1,6) 
1170 LINEí20.100)-'240,!80 , ..P:l:\E' 2 -?.1 
00>-(90,180):LINE<135.100»-':3?.190>:L:n 
E'180, 100) -'13?, 130! :LINE ; 20, 120I-Í240, 1 
20):LINE(20.160^-(240.160 , ':LINE(20.140)- 
(240,140) 

1180 A$="Genotipo c enotipo Serifliinaci 

: A=89: B=90: GOSUB930:A=20: B=10t : flí=CA$+" 

Macho":GOSU3930:B=126:Aí=CE^" Hacho"! 50 

3UB930: B=l 46: A$=CA$* " Hembra" : 6OSUB930sB 

=166:A$=CEt*" Hembra" :GOSUB930 

1190 C=105:D=!0¿:&nSL'B°50:GOS'JE!000:&í(l 

)=RB*:RB*=" n 

1200 IF LEN(6$(l))O2THENil90 

1210 C=174:GnsL!p?50:SDSUBl?'?0:CB$=" " 

1220 R1$=LEF T $ (E$ (11,1)! R2$=RI5H'$ l&í ' 1 ) 

, i ) : M=A3C (R 1 $ ) : N=ASC (R2$J : A= 1 30 : E'= 1 06 : 50 

SUB1040 

1230 C=105: D=126: GO5 ! JB950:GOSL'B1000: 5í ' 2 
)=RB$:RBt="" 

1240 IF LEN(G*'2!)O2 T HEN1230 

250 C-1 34 : GCSUB°50: &0SUB 1 000 : RB$= " " 

1260 R3*=LSFTÍ Í5«í 2) . M ! R4$=RIGH T $ ( &$ •'!) 

J):A=180:B=126:M=ASC(R3$!:N=ASC(94$ , :GO 
SUB1040 

1270 A$(1)=R1$+R3$:A$(2)=R1$+94$:A$(3)=9 
2$+R3$:A$(4)=R2$+R4* 

1230 C=105:D=146:GQS'JB950:SOSUB1000:H$!1 
!=RB$:RB$="" 

1290 IF LEN(H$(1)X>2THEN12B0 

1300 C=134:GOSUB950:GOSUB1000:RB$="" 

1310 S1*=LEFT$(H$( 1) , 1) :S2$=RI5HT$(H*(1J 




OD'~//~ OQi~!ÜC 



, 1):A=1B0:B=146:M=ASCÍS1$) :N=ASC(S2$) :GQ 
SUB1040 

1320 C=105¡D=166:GQSUB950:GOSUBÍ000:H$(2 
>=RB$:RB*=" 

1330 IF LEN!H$(2))O2THEN1320 

1340 C« 1 34 : SOSUB9S0 : GOSUB 1 000: RB$«" " 

1350 S3$=LEFT$!H$(2),1):S4$=PIGHT*(H$(2) 

.1>:B=166:A=180:!1=ASC!S3$):N=ASC(S4$)¡GO 

SUB1040 

1360 B$(n*Si$+S3$;B$(2)=Sl$+S4*;B*(3)=S 
2$*S3$:B$!4)=S2$tS4$ 

1370 Q$=INPUT$(1):CLS:P ! JTSPRITE0. '0,0),0 
■I 

1390 'llfllll BLOQUE 3 ttmtttt ' 

1390 LINE(206,6>-(224,26) , , B: LI NE ( 22B , 6 ) 

-(245,26), ,B 

1 400 PRESET < 20? . 8 ) : PR I NTi 1 . R 1 $ ; F:2$ : PRESE 

Tí231,8):PR!NTil.Sl$;S2$ 

1410 PRESET (20?, 18) : PRINTf 1, R3*; R4$; PRES 

ET(23l. 18): PRINTil, S3*;S4f 

1420 PRESET(216,26):DRAW"rl5ní7g7":PPE5E 

TC36.26- :DRAW"cl5nf7g7" 

1430 LlNE(206.35)-(214,55),,B:LINEi228,3 

5;-(236,55),,B:L!NE(238,35)-(245 f 55),,B! 

LINE(216,35>-(224,55),,B 

1440 PRESET (208, 37) : PRINTil, R1$:PRESET (2 

18,37) ¡PRINTil, R2$¡PI£SET<208,47) ¡PRINTi 

Í,R3$:PRESET(218,47);PRINTil,R4$ 

1450 PRESET (230, 37) : PRINTI 1, Sl$: PRESET (2 

40.37) ¡PRINTil. S2$:PRESET(230,47) {PRINTI 

l,S3$¡PRESET<240.47):PRINTil,S4$ 

1460 FOF;X=lTG 7 0STEF20:LINE;212,70+X)-(22 

2,90+X) „B¡LINE(232,70*X)-(242,90+X) ,,B¡ 

NEXTX 

1470 DRArt¡m215,72 , ':PP!NT#l.Rl$:DRAW"!jiit2 
35. 72": PRINTil, Sl$ 

1480 DFAW"bs215,30":PRINTai,R3$:DRAW"ba2 
J5,80'jPRINTfi,S3l 

1493 DRAW"bffl2i5.?3":PRINT#l, Rl$ : DRAW"bm2 
35.93":PRÍNTI1,S1$ 

1500 DRAW H b9215, 131" :PRINT#1, R4$: DRAWbra 

235, 101 PRINTil, S4$ 

1510 DRAM"bi215, 1 12* : PRINTt 1, R2i: DRAH'bn 

235.112":PRINTI1,S2* 

1520 DRAW"bm215, 123" : PRINT#1 , R3$: DRAW"b.n 

235,120":PRINTil,S3$ 

1530 DRAH"bl215, 132" :PRINT#1 , R2$: DRAWbm 

235,132":PRINTI1,S2$ 

1540 DRAW M bn215, 141 : PRINTil , R4f: DRAWbm 

235,141°:PRINTil,S4$ 

1550 A=195:B=160:A$="CELULAS":GOSUB930:A 

=185: B=170: A$="6ERMINALES" :6OSUB930 

1560 LINE(30,15)-(175,90)„B:LINE(66,15) 

-(66,90):LINE(101,15)-(101,90):LINE(137, 











15) -(137,90) :LINE(30,34)-(175,34) :LINE(3 
0,53)-( 175, 53) : LINE(30,72)-( 175,72) 
1570 A=20:B=100:A$= B CRUZAHIENTOS -7. GENO 
TIOS U :GDSUB930 

1580 LINE(30,110)-(180,170),,B:LINE(103, 
1 10) - (103, 170) 

1590 F0RX=1T04:PRESET(37$X, 5) ¡PRINTil, Ai 
( X ) t PRESET ( 14 v 29t X ) i PRINTil , Bf (X) t NEXTX 
1600 F0RX=1T04:F0RY=1T04 
1610 Z$(4IX*Y)»A$(X)*B$(Y) 

1620 FORW=1T04:C$(W)=MID$(Z$(4*X+Y),H,1) 
:NEXTW 

1630 Z$(4tX+Y)=C$(l)+C$(3)+C$(2)+C$(4)¡P 
RESET(35IX,20!Y):PRINTil,Z$(4tX+Y) 
1640 NEXTY.X 

1650 A=55:B=1B0;A$="CLASIFICANDO H :GOSUB9 
30 

1660 'tiltil CLASIFICANDO lltfll 

1670 S=0:FORX=1TO4:FORY=1TO4 

1680 IF Z$ ( 4*X+Y X Z$ < 4*X* Y+ 1 ) THENGOSUB 1 7 

20 

1690 NEXTY.X 

1700 IFS=1THEN1670 

1710 GOTO1730 

1720 S=1:SWAP Z$(4IX+Y) ,Z$(41X+Y+1) ¡RETU 
RN 

1730 Z=5:Q=0:D=1 

1740 LINE(45,178)-(160,190),1.BF 

1750 IF Z$(Z)=Z$(Z+1)THEND=D+1ELSEQ=Q+1: 

GOTD1770 

1760 Z=Z+1:IFZ=23THEN1810 ELSE1750 

1770 IF Q>4THENA=100:B=110+(Q-4) 110: YI=D 

/16*100:GOTO1790 

1780 A=30:B=110+Q*10¡YI=D/16I100 

1790 K=6: A$=Z$ (Z) +"-"+STR$( YI ) : GOSUB 

930:BEEP 

1800 D=1:GOTO1760 

1810 A=60;B=180:A$= B ¿OTRO CASO?" : G0SUB93 


1820 H$=INPUT$(1):CLS 

1830 IFH$="s"ORH$="S n THEN1130ELSEEND 

1840 END 

1850 'mti PRESENTACION tiltil 

1360 DATA 91,67,93,196,32,76,85,73,83.32 

,71,79,78,90,65,76,69,90,32,80,79,78,67, 

69,196 

1870 DATA 45,83,65,78,76.85,67,65,82,32, 

40,67,65,68,73,90,41,45 

1880 PSET(80,30) :DRAW"m94, 19ml04,27«97,3 

2al01 . 36a87, 41a88, 35a80, 30d4nf 2ng2' 

1890 PSET(87,41) :DRAW D ng3nd2nf 2" 

1900 PSET(86,50):DRAW"glh3e2":PSET<100,4 

0) : DRAW"g2bl6f 1 " : PSET ( 101 , 38) : DRAWM 2d9g 

ld2gldlg5dlg2h2ulh2u3h2a-2,+2a-l,+3a-3,+ 





10f7e2h5e3 M :CIRCLE(98,46),2¡CIRCLE(92,47 

),2:PSET(98.46):PSET(92,47) 

1910 PSET(97,48) :DRAW°d411bd312rldlulrl- 

:PSET(84,75):DRAW"nu5a-3,+6a+4,+2a+5,-2a 

+2 J -10ul2":PSET(102,57):DRAW"nh2d25i+2,+ 

5r3a+4,-10h3ul6a-2,-6h3" 

1920 PSET ( 1 10, 60) : DRAN"a+7, -3u2e2r 2ne40d 

3g2hld4m-8, +2" : PSET (97, 63) : DRAW'nu2d 13na 

-5,-lna+5,-2bd5dl715nu20rl0ul0' 

1930 PSET(96,100):DRAW"d514ula-5,+3h2u5a 

+6,-lulrl0B+6,+2f2d318uld213":DRAN°bB88, 

64uhm-2, -1 " 

1940 A=10:B=10:R=5 

1950 A$= "GENETICA: - LA HERENCIA DE LA VI 
DA":GOSUB2020:S=1 

1960 A=10: B=20: A$=STRING$ (32, CHR$ ( 195) ) : 
GOSUB2020: S=0: A=30: B=30: A$="Este pro 

graaa trata de ser una breve" :GOSUB20 
20:B=B*10:A=20:A$="e instruc tiv 
a introducción en esta" : GO5UB2020: A=20: B 
=B+10:A$="apasionante ciencia":G 
OSUB2020 

1970 A=30:B=B+20:A$="Con éste apr 
enderás":GOSUB2020 

1980 A$="- La teoria croaosóaica de 
1 a herenci a" : A=30: B=B+15: GOSUB2020: A$=" 
- Deterai nación croaosóaica del s 
exo":A=30:B=B+15:GOSUB2020 
1990 A$="- Leyes de Mendel " : A=30: B=B+15: 
GOSUB2020 

2000 RESTORE1860:R=6:S=1:A$="":A=40:B=15 
0: F0RX=1T025: READC: A$=A$+CHR$ (0 : NEXTX: G 
OSUB2020: A$=" " : A=60: B=160: F0RX= 1T018: REA 
DC: A$=A$+CHR$ (0 : NEXTX : GOSUB2020 
2010 A$=INPUT$(1):CLS:RETURN 
2020 FORX=1TOLEN(A$) 
2030 IFS=1THENBEEP 

2040 PRESET ( A+XtR, B) ¡PRINTil, MID$(A$,X,1 
) ¡NEXTX 
2050 RETURN 
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CJLD. 

Por Antonio Sánchez Cádii 



INSTRUCCIONES 

El avión se controla a través de las te- 
clas del cursor de la siguiente forma: 

La tecla superior mueve el avión hacia 
delante. Igual ocurre en la pantalla infe- 
rior. Si se pulsa la superior más la de la 
derecha se mueve el avión adelante y 
arriba. 

La superior más la de la izquierda, "el 
avión se mueve adelante y abajo. 

Las teclas de la derecha o izquierda 
no hacen nada por si solas. 

La tecla inferior mueve el avión hacia 
atrás, ocurriendo igual en la pantalla in- 
ferior. 

La inferior más la tecla derecha o iz- 
quierda realiza un movimiento diagonal 
hacia atrás, según las teclas que se ha- 
yan pulsado. 



misiles y posición de disparo. Requiere mucha habilidad 
, que es derribar los aviones enemigos. 



Teclas de altura y disparo 

Para que el perfil d< 
suba es n 



avión 
ala 



tecla «1 » hasta que se produzca el mo- 
vimiento. Igual ocurre con la tecla «2» 
para disminuir la altura. Oprimir la tecla 
«3» para los disparos, pero solo una vez 
por disparo. Oprimir la tecla «4» para los 
misiles, pero también una sola vez por 
disparo de misiles. 

Derribo del avión enemigo 

Sólo se producirá el derribo cuando el 
avión indicador esté en el punto de mira 
y parpadee el indicador inferior, además 
de producirse el solapamiento de los 
disparos o misiles con el avión enemigo. 
Por la movilidad de los aviones puede 
cambiar la posición de disparo, debien- 
do buscarla nuevamente. 

Posición de disparo 

Estará indicada por un avión en la mirilla 
del control derecho y el parpadeo del in- 
dicador inferior, produciéndose cuando 
la altura de los perfiles sean aproxima- 



10 REM "Iniciación de la pantalla- 
20 SCREEN 0,0,0 
30 CLEAR 300 
40 KEY OFF: WIDTH 37 
50 CLS:C0L0R 15,4,4 
60 REM "Opciones" 
70 LOCATE 10,4:PRINT "Nivel A" 
80 LOCATE 10,7:PRINT"Nivel B" 
90 LOCATE 10,10:PRINT"Nivel C" 
" 



damente las mismas y el avión enemigo 
y el nuestro en la pantalla superior estén 
en la misma horizontal. 

Contador de disparos y misiles 

El primer indicador será un contador 
de disparos (diez como máximo). El se- 
gundo indicador será un contador de mi- 
siles (cinco como máximo) 

Si el contador está completo no se 
debe utilizar el arma específica del mis- 
mo ya que de lo contrario se autodestrui- 
rá el avión. Utilizar el otro arma, según 
sea: disparos o misiles. 

Niveles de dificultad 

EPnivel A es el de mayor dificultad y el 
nivel d el de menor. 

El nivel de dificultad se realiza según 
la movilidad de los aviones enemigos, 
tanto en la pantalla superior como infe- 
rior. 



100 LOCATE 10.13:PRINT"Nivel D' 
110 LOCATE 10,16:PRINT H Salida S" 
120 LOCATE 10, 20:PRINT"- Elige opción" 
130 AC$=INKEY$ 

140 IF AC$="A" OR AC$="a" THEN LL=7:J0=6 
:P0=4:£0T0 200 

150 IF ACS="B" OR AC$="b" THEN LL=8:J0=5 
:P0=5:G0TO 200 

160 IF AC$="C" OR AC$='c" THEN LL=9:J0=4 



:P0=6:60T0 200 

170 IF AC$="D" OR AC$=*d" THEN LL=10:JQ= 
3:P0=7:60T0 200 

180 IF AC$="S" OR AC$="s" THEN CLS: END 
190 GOTO 130 

200 FOR 1=1 TO 500:NEXT:CLS 
210 OPEN "GRP:- ASI1 
220 SCREEN 2,2,0 

230 REH "Logotipo del prograia-- 




ri\ubi\m ii i-i 



240 DRAW"bffl75,S0s4cl5130u40r30dl0120d20r 
20dl0" 

250 PAINT (65,75), 15 

260 DRAW"bal05.80cl5u40r30d40110u!5110dl 

5ni":LINEtil5,68)-(125,50),15,B 

2 7 PAINT (110, 7 5),15 

280 DFAN"bml80,30115u40rl5" 

2"0 DRAW"bil78,7013u20r3" 

300 CIFCLEÍ 131, 60). 20, 15. 27013. 14159/180 

,9013.14159/180,1.6 

310 CIRCLE'17". 60). 10, 15, 270Í3. 14159/180 

."0t3. 14159/180, 1.6 

320 PAINT(180,75),15 

330 CIRCLE(85,7B),2,15,,.1.4 

340 CIRCLE(145,78). 2.15,. ,1.4 

350 CIRCLE(205JB). 2.15., .1.4 

360 DRAW-bm47. 100":PRINT II, 'Capitán Art 

hur Dunne" 

370 DFAW n bm80,125 B :PPINT*l, "Lugar: Corsa 

380 DPA« n bm2B. 145" : PRINT# 1 , "Tiemoo: Prim 

avera de 1952." 

390 FÜP 1=1 TD 2000:NEXT I 

400 FOP B=0 TO 191 STEP 12;LINE!0.0)-(25 

5,B),4,BF:NEXT B 

410 REF1 --Pantalla-- 

420 CIRCLE(30,20), 10. 14,9013. 14159/180.3 
.14159,1.4¡CIRCLE(30, 120). 10, 14,3.1415?, 
270t3.1415°/180,1.4:CIRCLE(230.20),10.14 
,,90t3. 14159/180, 1.4:C!RCLE(230, 120). 10, 
14,27013. 14159/180,213, 1415?, 1.4 
430 L!NE(30.10)-!230,10M4;LINE(30.130) 
-(230,130).14:LINE(23,20)-(23,120),14:LI 
NE(23 7 .20)-(237,1205.14 
440 PAINT (130.70!, 14 
450 CIR.CLE(25.150).5,14,90I3.1415°/180,3 
. 14159. 1.4:CIRCLE(24,1B0), 5, 14,3. 14159, 2 
7013.14159/180, 1.4sCIRCLE(56,150). 5, 14,, 
9013. 14159/180. 1.4:CIRCLE(55, 180). 5, 14. 2 
7013.14159/180,213.14159,1.4 
460 L!NE'20.150)-(20,180).14:LINE(60.150 
)-(60,180).14:LINE(25.145)-(55,145).14:L 
1NE(25.1B5)-(55,1B5),14 
470 PAINT (40.165). 14 
480 LINE(160.145)-(180.150),5,BF:LINE '1 
60,155)-(1B0.160),5,BF 
490 LINE(70,140)-(150,185),5,BF:LINE(70, 
184)-(150.185),3,BF 
500 50SUB 2660 
510 DRAH "bm70, 172xaxt; * 
520 CIRCLE(205, 150), 5, 14, 9013.14159/180, 
3.14159, 1.4:CIRCLE(204,180),5, 14,3. 14159 
,27013. 14159/180, 1 . 4: CIRCLE (235, 150) ,5. 1 
4,,90t3. 14159/180, 1 . 4: CIRCLE (235, 180), 5, 
1 



14,270*3.14159/180.213.14159,1.4 

530 LINE(200,150)-(200,179),14:LINE(205, 

145) - (235, 145) , 14:LINE(240, 150M240, 180 

).14!LINE(205,185)-(235,185),14 

540 PAINT (220, 165), 14 

550 DRAWBM202. 161":C0L0R ?: PRINTt 1 , ■ - - - 

560 CIRCLEÍ220, 1 65) , 3 . 9 , , , 1 . 4 

570 LINE(215.150)-(225,150),9:LINE (215, 

160)-(225.160).9:LINE(215.170)-(225,170) 

,9:LINE(215.180)-(225,180),9 

580 DRAW"bi25,0":PRINT#l,'Tiefpo-¡LINE(l 

81.0)-(230,5),9,BF:LINE(131.0)-(180,5),8 

,BF:LINE'80.0)-(130,5),6,BF 

5°0 DRAW " BM39 . 175C9S6UR3ULULU2RUR2UR3U2L 

2ULUL2ULÜ4LULDLD4LDL2DLDL2D2R3DR2ÜRD2LDL 

DR3":PAINT(40,160),9 

600 BOSUB 2170 

610 REH --Definición de los sprites- • 

620 REM • -Sorite de tu avión-- 

630 B*=CHRs(0)+CHR$(0) +CHR* (0) +CHR$ (»*£ 

HR$ (3)+GHR$ (3) +CHR$ (7) +CHR*t 127) 

640 C$=CHRt(255)*CHR« ( 127)*CHR$(7) *CHRs ( 

3) *CHR$!3) +CHRS ( 1 ) *CHR$ (0) *CHR* (0) 

650 Ds=CHP$ (0) +CHPÍ ( 192) +CHR$ ( 192) +CHR* ( 

192) *ZWÍ (224) *CHR$ (226) +CHR$ (246) +CHP* ( 

254' 

660 E$=CHR$ ( 255) +CHR$ ( 254) +CHR$ (246) +*CH 
Rl (226) *CHR« (224 ) *CHRI ( 192) *CHRI ( 1 "2) *CH 
RK192) 

670 8PRlTEtíll4t*Ct*Dt+E« 

680 REH • -Avión enemigo ( Arriba )■■ 

690 F*=CHR$ (0) +CHR$ (0) +CHR$ (0) +CHRS (0) +C 

HR$(0'*CHR$(1)+CHR$(7)+CHR$(63) 

700 6$=CHR*(255)+CHR$(63)*CHR$(7)+CHR$(1 

)+CHR$(0)+CHR$(0)*CHR$(0)+CHR$(0) 

710 H$=CHR$ (0) +CHR$ (112) +CHR* (32) +CHF:$ ( 9 

6) +CHRS (240) +CHR$ (228) +CHRS (236) +CHRI (25 

2) 

720 I$=CHR$ ( 254) +CHRS ( 252) +CHR$ ( 236) +CHP 
f(22B)+CHRt(240)^CHR$(96)*CHR<(32)*CHR$( 

112) 

730 SPRITE$(2)=F$+G$+H$+I$ 

740 REM • -Avión enemigo ( Abajo )•• 

750 J$=CHR$ (0) +CHP$ (0) +CHR$ (0) +CHRS (0) +C 

HR$(0)+CHR$(3!+CHR$(7)+CHR$(63) 

760 L$<HR$(255)+CHR*(63)*CHP$(7)+CHRI(3 

) *CHR$(0)*CHR$ (0) *CHR$ (0) +CHR$ (0) 

770 M*=CHR$ (0) +CHRI (0) +CHR* ( 240) *CHRi (96 

) +CHRS (240) +CHRS (228) *CHR$(236)+CHRt(252 

) 

780 N$=CHR$ (255) +CHRS ( 252) +CHR$ ( 236) +CHR 
$ (228) +CHR$ (240) *CHR$ (96) *CHR$ (240) *CHR$ 







790 SPRITE* (3) «JI+Lt+M+NI 
800 REM • -Sprite de disparos- • 
810 O$=CHR$(0)+CHP$(0)+CHR$(0)+CHP$(0)+C 
HRI (5) ♦CHRf (0) +CHRI (0) +GHRI (0) 
820 P$=CHR$ (224) +CHP$ (0) +CHR$ (01+CHR* (0) 
♦CHR$(5)+CHR$(0)+CHR$(0)+CHR$(0) 
830 X$=CHR$ (0) +CHP$ (|)+CHR$(f1 +CHP$ (0) +C 
HR$(0)+CHR$(0)+CHR$(0)+CHR*(0) 
840 SPRITE$(4)=0i+P$+X$+XS 
850 REM • -Sprite de misiles-- 
860 Ti=CHRi(0) ♦CHR* (0) +CHR* I 1 ) +CHRS (15)* 
CHR$(1)+CHR$(0)+CHR$(0)+CHR$ (0) 
870 U*=CHRf (0) +CHP$ (0) *CHP$ (0) +CHP$ (0) +C 
HR$(1)+CHR$115)+CHR$(1)*CHR$(0) 
880 SPRITE$I5)-T*+ÜHXI*XI 
890 REM • • Per-f i 1 avión nuestro-- 
900 V$=CHR$ (0) +CHR$ (0) +CHR$ (J) +CHRÍ (15)* 
CHR$ (127) +CHR* (63) +CHR$ (0) +CHR$ (0) 
910 Y$=CHP.$ (0) +CHP$ (2) *CHR$ (6) +CHR$ (255) 
+CHR$ (252) +CHR$ (240) +CHR$ (0) +CHR$ (0) 
920 SPRITE$(6)=V«+X$+Y$+X$ 
930 REM • -Avión indicador de disparo- • 
940 W$=CHP$ (2) +CHR$ (6) +CHRS (3) ♦CHRI ( 127) 
*CHR$(9)*CHR*(0)*CHR*(0)*CHRf(0) 
950 Z*=CHP$(64)+CHRl ( 96) +CHR$ ( 192) +CHR$( 
254) +CHR$ ( 144) +CHR$ (0) *CHR$ (0) ♦CHRK0) 
960 SPRITEi(7)=W$+X$+Z$+X$ 
"70 REM --Perfil avión enemigo-- 
980 A1*=CHP$ (0) +CHR$ (0) +CHR$ (01+CHRI (15) 
♦CHR*(63)+CHR$(0)*CHR$(0)+CHR$(0) 
990 BU=CHR$ (2) +CHR$ ' 6) +CHRÍÍ 14) +CHR* (25 
5)+CHRI (254) +-CHRS (252) +CHRS (0) +CHR$ (0) 
1000 SPPITE*(8)=A1*+X$*B1$+X$ 
1010 REM ■ -Sprite avión nodriza- • 
1020 D1$=CHR$ (0) +CHP$ (0) *CHR$(0)+CHR$ (1) 
+CHRJ ( 1 ) +CKR$ (3) +CHR$ ( 127) +CHR$ (255) 
1030 E1*=CHP$ (255) +CHP$ (127) +CHR$(3)+CHR 
$(1)+CHR$(1)+CHR$(0)+CHR$(0)+CHR$(0) 
1040 F1$«CHR$(48)*CHR«(112)+CHRI(224)+CH 
R$ (240) +CHR* (224) +CHR* (247) +CHR$ (250) +CH 
R$(255) 

1050 G1$=CHR$ (255) +CHRS ( 250) +CHR$ (247) +C 
HR$ (224) +CHR$ (240) +CHR$ (224) +CHR$ ( 1 12) *G 
HR$ (48) 

1060 SPRITE$(0!=D1I+E1$+F1$+G1$ 

1070 REM "Perfil avión nodriza- • 

1080 H1$=CHR$(0)+CHR$(0)+CHR$(0)*CHR$(0) 

♦CHR<(31)+CHR$(127)+CHR$(255)*CHR$(63) 

1090 I 1$=CHR$ (0) +CHR$ (2) +CHR$ (2) +CHR$ (2) 

+CHR$ (255) +CHR$ (254 ) +CHR$ (224) +CHR$ (192) 

1100 SPRITE$(9)=H1$+X$+I1$+X$ 

1110 REM --Sprite antiaéreo- 

1 120 J 1$=CHR$ (24 ) +CHR$ (46) +CHR$ (127) *CHR 

$ (247) +CHR$ ( 126) +CHR$ (44) +CHR$ (16) +CHR$ ( 




1130 SPR1TE$(10)=J1$ 

1140 REM - -Sprite tronco árbol" 

MSI Ll*=CHR*(0)+CHR$(0)+CHR*(0)+CHRi(0) 

*CHR$(0)+CHR$(0)+CHR$(24)+CHR$(60) 

1160 SPRITE$(11)=L1* 

1170 REM -Sprite coca árbol" 

1180 M1$=CHR$(0)+CHR$(0)+CHR$(0)+CHR$(60 

) +CHR* ( 126) +CHR$ ! 126) +CHRÍ (62) +CHR$ (24) 

1190 SPRITE! (12) «Hl* 

1200 REM .-Sprite montana- ■ 

1210 P1$=CHR*(0)*CHR$(8)+CHR$(28)+CHR$(2 

8) +CHR$ (62! +CHRS (62) +CHR$( 127) +CHR$ (255) 

1220 SPRITE$(15)=P1$ 

1230 REM --Juego-. 

1240 X=190:Y=60:Y1=35:Y2=85:X3=121:X4=74 

.54:X8=25:Xll=70.5:Al=INT(RND(l)t2000)+l 

500: A2=2700+INT(RND(1) 11500) :N1=1:N2=0:C 

OM=230:CT=68:BT=68:KL=8 

1250 FOR 1=220 TO 1?0 STEP -. 1:PÜT SPRIT 

E l.(I,Y),5.1:NEXT I 

1260 FOR X3=135 TO 121 STEP -.1:PUT SPRI 
TE 6.(X3.185-A1/100),15,6:NEXT X3 
1270 FOR 1=25 TO 75 STEP . 1 : PÜT SPRITE 2 
, (1.35) .5,2: IF I>=60 THEN PUT SPRITE 3, 
1-35, 85), 5, 3 
1280 NEXT I 

1290 FOR X4=70.5 TO 74.54 STEP .05: PUT S 

PRITE 8.(X4,185-A2/100).15.8:NEXT X4 

1300 GOSUB 2060 

1310 Y3M85-A1/100 

1320 Y4=185-A2/100 

1330 AB=INT(RND(1) JLD + l 

1340 IF AB=1 THEN A2=A2+50 

1350 IF AB=2 THEN A2=A2-50 

1360 CT=CM 

1370 IF IT=1 THEN 1410 

1380 SOUND 6,31 

1390 SOUND 7.240 

1400 SOUND 8,8 

1410 IT=0 

1420 REM ■ -Instrucciones para teclas 1,2 
,3,4-- 

1430 C1$=INKEY$ 

1440 IF CN>=1 OR Y3H67 THEN 1490 

1450 IF Nl<>2 AND Cl$="3 n THEN NM=NM+1:I 

F NM=11 THEN SPRITE OFF:GOTO 2480 ELSE L 

INE(180,145)-(180-2tNM,150),l,BF 

1460 IF N1O0 AND Cl$='4" THEN NN=NN+1:I 

F NN=6 THEN SPRITE OFF: GOTO 2480 ELSE LI 

NE(180,155)-(180-4»NN,160),15,BF 

1470 IF Nl=2 THEN 1480 ELSE IF Cll="3" O 

R N1=0 THEN GOSUB 1900:GOTO 1510 

1480 IF CH»T OR Nl=2 THEN GOSUB 1960: 



GOTO 1510 

1490 IF Cl$="l" THEN Al=Al+25 
1500 IF Cl$="2" THEN Al=Al-25 
1510 IF X5<40 OR X6<30 THEN N1=1:N=0:PUT 
SPRITE 4,(0,0),0,4:PUT SPRITE 5,(100,0) 
,0,5 

1520 REM ■ -Posición de disparo- • 
1530 IF ABS(A1-A2)<=50 AND ABS(Y-Y1)<5 O 
R ABS(A1-A2)<=50 AND ABS(Y-Y2)<5 THEN PU 
T SPRITE 7. (212,162), 1 , 7: LINE ( 1 60, 1 75) - ( 
180.180),7.BF:ON SPRITE GOSUB 2010:SPRIT 
E ON ELSE PUT SPRITE 7, (212, 162) ,0,7:SPR 
ITE OFF 

1540 GOSUB 2170 
1550 GOSUB 2320 

1560 IF N3*3 AND N4*4 THEN KO'KO+hCN'l 

1570 IF KO>=10 THEN GOSUB 2080 

1580 IF K0=1 THEN GOSUB 2550 

1590 C0M=C0M-.5 

1600 LINE(230.0)-(COM,5),4,BF 

1610 IF COM<=80 THEN SPRITE OFF:JO=l:GOS 
UB 2230 

1620 IF COM<130 THEN LINEÍ160, 165)-(180, 
170),15,BF 

1630 REM "Paráietros.. 

1640 IF YK17 THEN Yl=17 

1650 IF CV=1 THEN Yl=200 ELSE IF YD100 

THEN Yl=100 

1660 IF Y2<17 THEN Y2=17 

1670 IF CB=1 THEN Y2=200 ELSE IF Y2M00 

THEN Y2=100 

1611 If m\k THIN Mik 
1690 IF X< 170 THEN X=170 
1700 IF Y<15 THEN Y=15 
1710 IF Y>110 THEN Y=110 

1720 IF Y3M67 THEN PUT SPRITE 1.(400,0) 

,0,1 ELSE PUT SPRITE 1,(X,Y),5,1 

1730 IF X3M33.54 THEN X3=133.54 

1740 IF X3<116.82 THEN X3=116.82 

1750 IF Y4>167 THEN Y4M67 

1760 IF Y4<140 THEN Y4=140 

1770 PUT SPRITE 6, (X3,Y3) ,15,6 

1780 IF CN=0 THEN PUT SPRITE 8,(X4,Y4),1 

5,8 

1790 IF Nl=l THEN D=STICK(0) ELSE GOTO 1 
310 

1800 REM ••Moviniento de nuestro avión- ■ 
1810 IF D=0 THEN MHi X3=X3+. 3636: GOTO 
1310 

1820 IF D=l THEN X=X-1:X3*X3-.3636:G0T0 
1310 

1830 IF D=2 THEN X=X-1 : X3=X3- . 3636 : Y=Y- 1 
:GOTO 1310 

1840 IF D=3 THEN 1310 



1850 IF D=4 THEN X=X+ 1 : X3=X3+ . 3636 : Y=Y- 1 
:GOTO 1310 

1860 IF D=5 THEN X=X+1 : X3=X3+. 3636 : GOTO 
1310 

1870 IF D=6 THEN X=X+1 : X3=X3+. 3636: Y=Y* i 
: GOTO 1310 

1880 IF D=7 THEN 1310 

1890 IF D=8 THEN X=X-1: X3=X3-.3636: Y=Y+1 

:GOT0 1310 

1900 REM "Disparos-- 

1910 N1=0:N=N+15:X5=X-N:Y5=Y:PUT SPRITE 

4,(X5,Y5),1,4 

1920 LINE(30.180)-(40.183).1.BF 
1930 X6=50 

1940 IF Cl*="3" THEN FOR C=l TO 4:G0SUB 
2060:SOUND 6.0:SOUND 7,7:S0UND 9,15:S0UN 
D 11, 17:S0UND 12,17:S0UND 13,10:NEXT C:G 
OSUB 2060 
1950 RETURN 

1960 IF C1$="4 B THEN GOSUB 2060:SOUND 7. 
60:SOUND 8,14:F0R 1=100 TO 50 STEP -l:SO 
UND 0,I:NEXT IsSOUND 7,60:SOUND 8.14:G0S 
UB 2060 

1970 REM • •Misiles- • 
1980 N1=2:N=N+9:X6=X-N:Y6=Y:PUT SPRITE 5 
,(X6,Y6),1,5 

1990 LINE(40,180)-Í50,183),15,BF 
2000 X5=50: RETURN 
2010 GOSUB 2450 

2020 IF N1=0 THEN X7=X5: Y7=Y5+8 ELSE IF 
Nl=2 THEN X7=X6+8:Y7=Y6*8 

T SPRITE 5. (200,0).0.5:GOSUB 2720 

2040 IF X7<65 THEN N3=3 ELSE N4=4 

2050 RETURN 

2060 FOR I7.=0 TO 13:S0UND I7..0:NEXT 17. 

2070 RETURN 

2080 REM "Aleatorios para antiaéreo-- 

2090 BX=INT(RND(l)tl90)+30 

2100 BY=INT(RND(l!tl00)+15 

2110 REM • -Movimiento del avión nodriza- 

2120 IF AB=>PO THEN PUT SPRITE 10.fBX.BY 
).1,10:ON SPRITE GOSUB 2200:SPRITE ON:GO 
SUB 2450: IT=1 ELSE SPRITE OFF 
2130 IF X8>=145 THEN X8=145: XV=XV+1 ELSE 
XB=X8+2:X11=X11+.45:PUT SPRITE 0,(X8,60 
),5,0:PUT SPRITE 9, (X11.Y4-5) , 15,9 
2140 IF XV=1 THEN FOR 1=160 TO 169 STEP 
.3:LINE(160,68)-(I,68),1:NEXT I:LINE(X11 
♦9,Y4+3)-(Xll+20,Y4+3),l:LINE(169,67)-(l 
69.69), 1,BF 

2150 IF P0INT(X,Y*9)=l AND POINT (X3,Y3 
♦5)=1 THEN 2590 



■ 




DO/"?/" OQt~!QC 



2160 RETURN 

2170 UNE (30, 180) -(50, 183), B,BF 

2!90 LINE (160,165M180, 1 7 0\5.BF:LINE 

(160.175)-'180.180),5.BF 

2!"? RETURN 

2230 5QSÜB 2450 

2210 IF BX<165 THEN PUT SPRITE 10. '450,0 
) ,0. 10: X7=BX+4s Y7=PY*4: 60SUB 2720:5010 2 
70? 

222? X7=X*9íY?=Y+B:&0SUB 272?: FT=I 
2230 c "." 3 D ¡>!TE !0. '450,0?. 0,10 
2240 X=XM:X3=X3*. 1454:Y3=Y3+.25 
2250 SOUND 6,3!:S0!»NÜ 7 ,240:KL=ia-.25:IF 
KL>0 T V i EN KL=0 
2260 BC'JND 8.KL 

22 , S IF Y3H67 T HEN PUT SPRI'E 1.(400,0) 

.0.1 SLSE F'L'T SPRITE i, (X, Y), 5,1 

2289 C "J T :P C I T E 6,íX3,Y3),l!,6:P ! J T SPFIT 

E V:2 7 5.0i.0.4:PL'T SPRITE 5. (300.0) .0.5 

22 3 l- X ;2i6 THEN X=215 

2300 IF X3M33.54 THEN X3=133.54 

2312 R E M • lüovUianto aviones enemigos- ■ 

2320 I s ÍNTíRNDí|.tf)+l 

233? IF 1=1 T HEN v i=Yi*J0 

2340 IF 1=2 THEN YMi-JO 

23!'? I c 3=3 T HEN Y2= V 2*JC 

2360 IF 2=4 THEN Y2=Y2-J0 

23"? IF Y3-.140 OF: Y3M77 ? MEM 2480 

2390 ! c N¿=4 T HEN PUT SPRITE 2. ! 7 !. 01.0. 

2: CV=i EL5E PUT SPFITE 2, Í75, Yi' .5,2 

23°0 I r N3=3 THEN PÜT SPRITE 3, (25.0) .0, 

3:CB=t EL9E PUT 5PPITE 3. (40.Y2) .5.3 

**ff ; f rH; f nfN pyt swítí f t.§ tifff i 

D.l.lísPUT SPRITE 12. (1300.0), 0.12 EL5E 
PUT SPRITE Il.(CT f l7S),9,ll:PüT SPRITE 

— 



12. ÍCT, 173.5) ,2, 12 

2410 IF CTM95 THEN PUT SPRITE 15,(2000, 

0).0,15:CT=68 ELSE IF CTM23 THEN PUT SF 

RITE 15,(CT-53,176),3.1S 

2420 IF COM(=80 OR PT=1 THEN CT=CT*. 5 : GC 

TO 2240 

2430 RETURN 

2440 REM •■Ruido de exslosion- • 

2450 SOSUB 2060:SDUND 6.0:SOUND 7.7:S0UN 

D B. 16: SOUND ",16:S0UND 10,16:SOUND 12,5 

6 ¡SOUND 13,0 

2*60 RETURN 

2470 REM • -Rutina de explosión- • 

2480 BQS'JE 2450:X10=X3*8:Y10=Y3+6:CIRCLE 

(X10.Y10),S,8,...4:CIRCLE'.X10.Y10),6,1.. 

,.6:CIRCLE(X10.Y10\3.1...1.4:CIRCLE(X10 

,Ví0),M„i 

24^0 CIF;CLE(X10,Y10),2,3,,1:CIRCLE'X10,Y 
10),5,B,,,.5 

2500 X7=X+3:Y7=Y+8:G0SUB 2720 
2510 PUT SPRITE 1. (325,0), 0,1:PUT SPRITE 
6. (350,0), 0.6 

2520 IF BX>=165 THEN BRAW"BH80.30":COLOP 
1 : PFINTtl . "Puntos: " : INT ( CQMt 1 00 ) : FDR I« 
1 TO 3000: NEXT IsBOSUB 2061 :RUN 
2530 DRAW"bin80. 100 "¡COLOR 1:PRINTI1. "Pun 
tos: 0":FOR 1=1 TO 3000:NEXT I:GOSUB 20 
60:RUN 

2540 PEM • -Rutina de explosión- • 

2550 X"=X4*e:YO=Y4+B:CIRCLE'X9,Y9), l ',8,, 

,.4:CIRCLE(X9.Y9),4,1,,,.8:CIPCLE(X?,Y 1 ') 

,6.1,,,1.4:CIRCLE(X9.Y9),4.8.,,1.4:CIRCL 

E<X9.Y9),6.8.,.1:CIRCLE(X<U9).5.1,,..5: 

PUT SPRITE 8, (375.0), 0,8 

2560 LINE(X9-9,Y9-6)-(X9+9, Y9+6 1 , 5.BF 

— 



2570 GOTO 2670 

2580 REM • -Llenado de combustible- ■ 
25"0 PUT SPRITE 10, (0,600!, 0,10 
2600 SOUND 6,31:S0UND 7,240:SOUND 8,8 
2610 FOR A=80 TO 130 STEP .5;LINE!80.0)- 
(A,5),9,BF:G0SUB 2400:CT=CT*.25:NEXT A 
2620 LINE(160,165)-(180.170).5.BF 
2630 FOR B=131 TO 180 STEP .5:LINE(131,0 
)-(B.5!,.B.BF:50SUB 2400:CT=CT+.25:NEXT B 
2640 FOR C=131 TO 230 STEP .5:LINE(181,e 
)-(C,5).6.BF¡G0SUB 2400:CT=CT+.25:NEXT C 
2650 DRAWbm80. 100" ¡COLOR hPRINT#l,'Pur 
tos:":INT(CDí1t250):FOR 1 = 1 TO 3000:NEXT 
I : GQSUB 2060: PUN 

2660 AXí= n ci4s4r3u2r3elr2flr2u2r2f2r3d2r 

2e2r2f2ulr3*2r3e2ulr3*2r2elr3e2r2f2r3elr 

3flr3ulr2í2r3eHl n 

2670 DRAW "b(B70,171>:ax$;" 

2680 DRAW "bni70,172xax$; n 

2690 RETURN 

2700 IF BXM THEN DRAW"BM80,30":COLCR i: 

PPINTil, "Puntos: " : INT í CO^t 100) : FOP í»l T 

O 3000: NEXT IsBOSUB 2060: RUN 

2710 REM --Rutina de exül osi 6n • ■ 

2720 CIRCLE(X7.Y7).5,1,,,1.4:CIRCLE!X7.Y 

7),10,1,,,.5:CIRCLE(X 7 ,Y7),7,8,,.1.4:CIR 

CLE(X7.Y7),3,1.,.1¡CIRCLE'X7.Y7).8.1,,,1 

2730 CIRCLE(X7.Y7),8,1,,,1.2:C!RCLE(X7.Y 

71,9,1,,. 1¡CIRCLE(X7,Y7), 6,1, ,,1.4¡CIPCL 

E(X7.Y7),8,8,,,1.3:CIRCLE(X7,Y7),5,8,,,1 

.3:CIRCLE'X7,Y7),3,8,,,1.1 

2 7 40'LINE(X 7 -10,Y7+10)-(X7*10,Y7-10),14, 

BF 

2 7 50 RETURN 
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690 


-237 


360 


-197 


1030 


- 87 


1200 


- 


1370 


-152 


1540 


- 29 


1710 


-238 


20 


- 80 


1?0 


- 25 


360 


-216 


530 


- 53 


700 


-235 


870 


-193 


1040 


- 9 


1210 


- 17 


1380 


- 53 


1550 


-180 


1720 


- 68 


30 


-21° 


200 


- 7 6 


370 


-140 


540 


- 36 


710 


- 40 


880 


-253 


1050 


- 10 


1220 


-238 


1390 


- 7 


1560 


- 87 


1730 


- 40 


40 


-197 


210 


-224 


380 


-136 


550 


- 76 


720 


- 37 


890 


- 


1060 


-121 


1230 


- 


1400 


- 34 


1570 


-152 


1740 


- 12 


50 


- 54 


220 


- 84 


390 


-158 


560 


- 84 


730 


-191 


«00 


-127 


1070 


- 


1240 


-246 


1410 


-157 


1580 


-154 


1750 


-200 


50 


- 


230 


- 


400 


-157 


570 


- 42 


740 


- 


910 


-168 


1080 


-175 


1250 


-134 


1420 


- 


1590 


- 76 


1760 


-148 


70 


-128 


240 


-176 


410 


- 


580 


- 78 


750 


-243 


"20 


- 4 


1090 


-11» 


1260 


- 46 


1430 -115 


1600 


-139 


1770 


-222 


80 


-132 


250 


- 48 


420 


-114 


590 


-129 


760 


-242 


930 


- 


1100 


- 75 


1270 


- 94 


1440 


-241 


1610 


-155 


1780 


-21E 


90 


-134 


260 


-109 


430 


-110 


600 


- 29 


770 


-175 


"40 


- 74 


1110 


- 


1280 


-204 


1450 


- 54 


1620 


- 61 


1790 


-176 


100 


-138 


2H 


- '3 


440 


-107 


610 


- 


780 


-173 


950 


-160 


1120 


- 69 


1290 


- 28 


1460 


- 88 


1630 


- 


1800 


- 


110 


-236 


280 


-129 


450 


-236 


620 


- 


790 


-211 


960 


- 7 


1130 


-227 


1300 


-175 


1470 


- 63 


1640 


-152 


1810 


- 68 


120 


-233 


290 


- 31 


460 


-150 


630 


- 47 


800 


- 


970 


- 


1140 


- 


1310 


- 14 


1480 


-226 


1650 


-102 


1820 


- 71 


130 


-131 


V00 


- 19 


470 


-112 


640 


- 45 


810 


-182 


980 


- 30 


1150 


- 47 


1320 


- 16 


1490 


- 77 


1660 


-154 


1830 


- 72 


140 


-162 


310 


- 7 


480 


-222 


650 


-142 


820 


-149 


990 


-220 


1160 


-230 


1330 


-191 


1500 


- 79 


1670 


- 85 


1840 


-221 


150 


-165 


320 


-163 


490 


- 64 


660 


-125 


830 


-186 


1000 


- 60 


1170 


- 


1340 


-240 


1510 


- 75 


1680 


-192 


1850 


- 72 


160 


-168 


330 


-121 


500 


- 9 


670 


-174 


840 


-242 


1010 


- 


1180 


-100 


1350 


-242 


1520 


- 


1690 


-102 






170 


-169 


340 


-181 


510 


-174 


680 


- 


850 


- 


1020 


- 86 


1190 


-232 


1360 


- 32 


1530 


- 21 


1700 


- 50 


(sigue) 
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TEST DE LISTADO 



1860 - 73 
1870 - 74 
1880 -225 
1890 - 
1900 - 
1910 -189 
1920 -122 
1930 -190 
194ÍS - 31 



1950 -142 
1960 -193 
1970 - 
1980 -193 
1990 -154 
2000 -133 
2010 - 54 
2020 -105 
2030 -163 



2040 - 25 
2050 -142 
2060 -185 
2070 -142 



2090 - 38 
2100 -1°0 
2110 - 
2120 -148 



2130 - 55 
2140 -11? 
2150 - 65 
2160 -142 
2170 -139 
2180 - 46 
2190 -142 
2200 - 54 
2210 -233 



2230 -174 
2240 - 45 
2250 - 65 
2260 -160 
2270 - 68 
2280 - 91 
2290 -192 
2300 - 40 



2310 - 
2320 - 19 
2330 - 77 
2340 - 79 
2350 - 81 
2360 - 83 
2370 -116 
2380 - 82 
2390 -236 



2400 - 44 
2410 - 65 
2420 -217 
2430 -142 
2440 - 
2450 -101 
2460 -142 
2470 - 
2480 -181 



2490 - 56 
2500 -123 
2510 -163 
2520 - 26 
2530 -211 
2540 - 
2550 -170 
2560 -255 
25^0 - 15 



2580 - 
25«0 - 6* 
2600 -210 
2610 - 4 
2620 -112 
2630 -106 
2640 -207 
2650 -142 
2660 -222 











wm 



2670 -173 
2680 -174 
26"0 -142 
2700 -137 
2710 - 
2720 -206 
2730 -207 
2740 - 
2750 - ' 4 



TOTAL: 

20977 



— — 




UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



IAVII K í.l'l HUI HD 



JUAN CABIOS GONZAI tZ 



•. ' guui mis nlxidid dnjenición 

componer música a una do* o tres voces 
organizar tus propios programas de gestión,... 

LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Póker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. Importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

Importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 





AUMENTO DE PRECIO 



Los americanos están negros 

Los precios de los «chips» de memo- 
ria han aumentado considerable- 
mente en el mercado americano en 
los cuatro últimos meses como conse- 



cuencia de un acuerdo suscrito entre los 
Estados Unidos y el Japón, que obligaba a 
este último país a una política de precios 
mínimos en los Estados Unidos. Todo ello, 
ha provocado ya airadas protestas de los 
fabricantes de ordenadores americanos, 
que se quejan de un alza de precios que en- 
carece considerablemente los equipos ter- 
minados. Tranquilos, los ordenadores 
MSX son japoneses. 



KBI-832: CARTUCHO DE 
INTEKTAZ HS-232C 



Reedición del cartucho de 
ampliación 

Este cartucho de comunicaciones de 
SONY permite conectar el HIT BIT 
o cualquier otro MSX con cual- 
quier ordenador equipado con RS-232C, 
bien haciéndolo por vía telefónica me- 
diante un MODEM o acoplador acústico o 
bien directamente utilizando un cable de 
extensión. 

Para ello va equipado con un conmuta- 
dor TO MODEM/ TOTERMINAL, lo que evi- 
ta el engorroso cambio de conexiones del 
cable Permite conectar directamente al 
modem o acoplador en TO MODEM y direc- 
tamente a ordenador o a cualquier otro pe- 
riférico equipado con RS-232C en TO TER- 

M Stmás de ello extiende el BASIC MSX 
para facultar la creación de software de 
comunicaciones. Su precio es de 22.000 
ptas. mas IVA. 




Adicionalmente, SONY ha vuelto a co- 
mercializar los cartuchos de ampliación 
?e memoria HBM 64 ^*^™£™ e 
moriadelos ordenadores de MH&Mg» 
los usuarios vean que se acuerdan de ellos. 
Vale 17.500 + IVA. 




DURANTE EL PASADO 
AÑO ESPAÑA GASTO 
390.000.000.000 de ptas. 

EN INFORMATICA 

Según documento editado por la 

mu 

Durante el año 1985, España gastó 
390.000 millones de pesetas en 
equipos y servicios informáticos 
mientras que la producción nacional se si- 
tuó en los 103.000 millones de pesetas, se- 
gún el documento elaborado por la Direc- 
ción General de Electrónica e Informática. 

El consumo informático alcanzó los 
312.000 millones de pesetas mientras que 
en consumo de software se registró un 
gasto de 75.000 millones. Estas dos cifras 
totalizan el volumen de gasto informático 
español durante el pasado año, lo que su- 
pone un cuantioso incremento con res- 
pecto al ejercicio anterior. 




IBM LANZA AL 
MERCADO NUEVA 

VERSION DEL PC/XT 

Llevará incorporado lector de 
dlsketteadeS'S" 

IBM España ha lanzado al mercado su 
nuevo ordenador de la gama PC. Se 
trata del PC/ XT286, el más potente 
de la familia por el momento. Este aparato 
incorpora un microprocesador INTEL 
80286 de 16 bits con una frecuencia de re- 
loj de 6MHz, lo que le permite operar auna 
velocidad tres veces mayor que los ante- 
riores modelos de la misma gama. 

A partir del mes de noviembre, IBM 
pondrá a disposición de los usuarios nue- 
vos productos que aumentarán las presta- 
ciones del ordenador mencionado, entre 
los que cabe destacar la presentación de la 
nueva (para D3M) unidad de diskette de 
3'5", que como todos sabemos es el forma- 
to standard de la norma MSX. Es intere- 
sante ver que los gigantes de la informáti- 
ca adoptan los periféricos MSX, puesto 
que esto nos da la medida de la alta calidad 
que está desarrollando la norma. 
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LOGO 

INTRODUCCION Y 
APLICACIONES 

WEIDENFELD • MATHIEU • PEROL AT 




LOGO: INTRODUCCION Y 

APLICACIONES 

Nuevo libro de Ed. Noray 

Este libro, que versa sobre el didácti- 
co lenguaje LOGO no exige ningún 
conocimiento previo de Informáti- 
ca. Trata de pasar revista a los diversos as- 
pectos de LOGO a través de las siguientes 
partes en que está dividido: 
Programar el LOGO, descripción gene- 
ral del lenguaje enfatizando especial- 
mente los problemas de sintaxis y los 
modelos de representación. 



de referencia de LOGO. Repre- 
exhaustiva de palabras y 
principios. 

Una experiencia pedagógica. Realizada 
con los niños de una escuela. 
En suma, un excelente libro para quie- 
nes deseen introducirse en el lenguaje. 



MEMORIA SIEMENS DE 

1 MILLON DE BITS 

Un nuevo paso en el tratamiento 
de los semiconductores 



El grupo alemán 8IEMENS na co- 
menzado a distribuir prototipos de 
memoria RAM dinámica de un mi- 
llón de bits (1Mb). La tecnología utilizada 
para la producción del chip es la MOS de 
una miera, lo que viene a significar que los 
motivos geométricos de los circuitos que 
lo integran tienen una precisión de milé- 
sima de milím etro 

La primera presentación pública de este 
prototipo tendrá lugar durante el trans- 
curso de este mes de noviembre durante la 
celebración del certamen de Electrónica 
de Munich, que reúne a los más importan- 
tes fabricantes mundiales de semiconduc- 
tores. 

Esto convierte a SIEMENS en la prime- 
ra compañía europea en disponer de una 
memoria de 1 Mb, cuyas entregas ya han 
comenzado por parte de empresas Japone- 
sas como NEC y TOSHIBA qe se adelanta- 
rán unos meses a SIEMENS y a los fabri- 
cantes del Silicon Valley. 

SIEMENS ha elaborado este revolucio- 
nario componente en el marco del Mega- 
project —financiado por los gobiernos ale- 
mán y holandés- asociada a PHILIPS. 




CONTABILIDAD 1S00 de 
SONY 

Adaptada al nuevo Flan Contable 

IVESON SOFTWARE ha desarrollado 
para SONY España la aplicación CON- 
TABILIDAD 1500, que forma parte de 
un Paquete Integrado de gestión dirigido a 
la pequeña y mediana empresa. 

La numeración de cuentas es libre y se 
adapta al Plan General Contable, por lo 
que los listados obtenidos pueden presen- 
tarse directamente al Ministerio de Ha- 
cienda. 

Este excelente programa puede mante- 
ner cuentas de libro mayor de hasta 3 dí- 
gitos y cuentas de libros auxiliares de 
hasta 6. 

El módulo contiene un diskette con la 
aplicación capaz de manejar hasta 1500 
cuentas y 6000 apuntes contables. 

El programa viene acompañado por un 
claro manual de usuario con una Intro- 
ducción a la Contabilidad y una explica- 
ción completa de las características gene- 
rales. Su precio es de 10.900 ptas. Como 
puede verse, MSX sirve para algo más que 
para Jugar. 



HARD COPY 

SERIE ORO DE MANHATTAN 



Con Hard Copy iniciamos lo que hemos dado en llamar 
Serie Oro. A partir del próximo mes ya estará disponi- 
ble el primero de los cassettes de aplicación. Con Hard 
Copy, desarrollado totalmente en Código Máquina, el 
usuario podrá realizar copias en tres formatos diferen- 
tes, hacer simulación en blanco y negro de los colores 
por degradación de grises, copiar sprites, grabar o 
cargar pantallas en cinta, copiar en inverso, redefinir 
tonos de colores, etc. Además dispondrá de menús 
por ventanas y controlar el Hard mediante cursores o 
joysticks. Y lo que es más importante es que es com- 
le con cualquier tipo de impresora. 




— 




INICIACION AL LENGUAJE MAQUINA 



DELHARDAL SOE 



COMPENDIO 



POR 

J.C. GONZALEZ 




SIMBOLOS UTILIZADOS: 



n: número de ocho bits, comprendi- 
do entre &H00 y &HFF. 

nn: número de dieciséis bits, com- 
prendido entre &HOOOO y 
&HFFFF. Y 

e: número de ocho bits, comprendi- 
do entre &HOO y &HFF, interpreta- 
da por la instrucción en comple- 
mento a dos (con signo). 

c: condición. Tipos: 

C: si el flag C ha tomado valor 1 
NC: si el flag C ha tomado valor 
Z: si el flag Z ha tomado valor 1 
NZ: si el flag Z ha tomado valor 
PE: si el flag P/V ha tomado valor 1 
PO: si el flag P/V ha tomado valor 
M: si el flag S ha tomado valor 1 
P: si el flag S ha tomado valor 

x ó y: variables representativas del 
mnemónico, cuyo significado se 
especificará en cada caso. 

ADC x.y: Suma el contenido de «x» más el 
de «y» guardando el resultado en «x», y le 
suma el flag C (carry). Si «x» es A «y» puede 
ser A.B.C.D.E.H.MHLUIX+d), (IY+d), ó n. 
Si «x» es HL «y» será BC.DE.SP, ó HL. 
ADD x,y : Suma el contenido de «x» más el 
de «y» guardando el resultado en «x». Si «x» 
es A «y» podrá ser A,B,C,D,E,H,L,(HL), 
(IX+d),(ÍY+d) ó n. Si «x» es HL «y» podría 
ser SP.DE.BC, ó HL. Cuando «x» es IX ó IY 
«y» será BC.DE.SP ó IX. 
AND x: Empleo del término «Y» según las 
reglas de la lógica, bit a bit, entre A y «x» al- 
macenando el resultado en A. Los flags toma- 
rán valor en función del resultado. 
BIT b,x: «b» corresponde al número del bit 
que se encuentra en el «x» que se explora, 
«x» puede ser A,B,C,D,E,H,L,(HL),(IX+d), 
(IY+d). El BIT b,x se copia en el flag Z, lo que 
permite instrucciones condicionales posterio- 
res. 

CALL nn: siendo «nn» la dirección de me- 
moria a la cual salta el programa, tratándose 
luego como una subrutina. La dirección de la 
instrucción de retomo de la subrutina se al- 
macena en la pila stack. Al final la subrutina 
debe deiar la pila en el mismo estado, devol- 



viéndose mediante un RET al programa prin- 
cipal o al intérprete BASIC. 
CALL c,nn: tiene idéntico funcionamiento 
que CALL nn, pero ejecutándose solamente 
si se cumple la condición «c». 
CCF: es un complemento del flag CARRY, 
colocándolo a cero si tiene el valor uno y a la 
inversa. 

CP x: realiza la comparación de A con «x» y 
en función del resultado posiciona a todos los 
flags. «x» podrá ser (HL),(IX+d),(IY+d), 
A.B.C.D.E.H.L ó n. Su modo de actuar es: 
A-«X», sin almacenar el resultado. Afecta a 
las posteriores instrucciones condicionales. 
CPD: compendia en sí las funciones de 
CP(HL), DEC HL, y DEC BC. Cuando A=(HL) 
el flag Z toma el valor cero. Cuando BC=0 ei 
flag P/V tomará el valor 0. JP PE nn después 
de CPD saltará solamente cuando BC sea 



distinto de cero, y JP PO nn saltará cuando 
BC sea igual a cero. 

CPDR: realiza las funciones de CPD pero 
con repetición, es decir, se va repitiendo nas- 
ta que A=(HL) y por lo tanto Z=0 ó bien 
BC=0 y el flag PÁ/=0. 
CPIR: Al igual que CPDR, pero incrementan- 
do HL. 

CPI: Al igual que CPD pero incrementando 
HL. 

CPL: es un complemento del registro A, cuya 
función estriba en convertir cada uno en cero 
y viceversa, sin afectar a los flags. 
DAA: el resultado de una suma o resta es 
ajustado para darle significación en código 
decimal. Asimismo interpreta los sumandos 
en decimal. 

DEC x: el valor de «x>» es decrementado en 
uno y vuelto a almacenar en «x». «x» puede 




ser A,B,C,D,E I H,L,HL,BC,DE 1 IX.IY,SP > (HL) I 
(IX+d),(IY+d), Los flags sólo se alteran 
cuando se trabaja con registros aislados, 
pero no con pares de registros. El flag CA- 
RRY no se ve afectado en ningún caso. 
DJNZ •: el registro B es decrementado en 
uno y si el resultado no es cero «e» realiza un 
salto relativo hacia adelante o hacia atrás. Si 
B=0 pasa a la instrucción siguiente. 
EX (SP),x: generalmente se utiliza con HL 
para intercambiar los dos bytes de la pila con 
el contenido de HL. No altera a los otras regis- 
tros, «x» suele ser HL.IX ó IY. 
EX x f y: siendo «x» AF «y» es AF\ y cuando 
«x» es DE «y» es HL. EX DE.HL realiza un in- 
tercambio de contenidos de HL y DE sin alte- 
rar a los demás registros. 
EXX: realiza un intercambio con HL.BC y DE 
por HL'.BC, y DE', esto es, con el banco al- 
ternativo de registros. Esta instrucción se uti- 
liza para almacenar los registros antes de uti- 
lizar una subrutina que los pueda alterar. 
IN x,(C): se emplea para captar información 
del exterior y cargarla en el registro «x». «x» 
puede ser A.B.C.D.E.H ó L. Pueden llegar a 
haber hasta 256 aparatos distintos direccio- 
nados cada uno a una vía de acceso o port, 
identificados por un número que va entre 
&H00 y &HFF. 

IN A,n: Su funcionamiento es igual que IN 
x,(C) pero el número de la vía de acceso se 
suministra directamente como dato. 
INC x: el valor de «x» es incrementado en 
uno y vuelto a almacenar en «x». «x» puede 
ser A,B,C.D,E,H,L,HL,BC,DE,IX,IY,SP,(HL), 
(IX+d) y ÍIY+d). Si se trabaja con un registro 
aislado afecta a todos los flags excepto CA- 
RRY. Si «x» es un par de registros estos no se 
ven afectados. 

IND: Su funcionamiento es el de IN (HL),(C), 
decrementando HL y B, utilizándolo como 
contador para cargar un bloque desde el ex- 
terior. 

INDR: al igual que IND pero repitiéndose 
hasta que B=0. 

INI: al igual que IND pero incrementando HL. 
INIR: al igual que INDR pero incrementando 
HL. 




JP x: equivalente a la instrucción GOTO del 
BASIC. Realiza un salto a la dirección de me- 
moria indicada por «x» , \ 



la por «x», prosiguiendo a« 
nuación el programa, «x» puede ser 
(HL),(IX),(IY)ónn. 

JP c,nn: realiza un salto a la dirección de 
memoria indicada por «nn» si y sólo si se 
cumple la condición especificada por «c» . En 
el caso que «c» no se cumpliese la instruc- 
ción es ignorada. 

«IR •: realiza un salto relativo de tantos bytes 
como indique «e» hacia adelante o hacia 
atrás, «e» es interpretado como un número 
en complemento a dos y se suman +2 al re- 
sultado, esto es, contando a partir del inicio 
de la instrucción siguiente a JR e. Los límites 
del salto vienen definidos por 1 27 bytes hacia 
adelante y 128 hacia atrás. 

JR c,e: su empleo y funciones son iguales a 
las de JR e con la excepción que sólo realiza- 
rá el salto relativo si se cumple la condición 
«c». «c» puede ser C.NC.Z ó NZ. 
LD x,y: almacena el contenido de «y» en «x» 
borrando el anterior contenido de «X». «x» 
puede ser A.B.C.D.E.H.L «y» puede ser 
A.B.C.D.H.E.L.ón. 

LD A,(xx): instala en A el contenido de me- 
moria indicado por la dirección «xx». «xx» po- 
drá ser nn,HL,BC,DE,IX+d,IY+d. 
LD x,(y): instala en «x» el contenido de me- 
moria que indica «y». Mientras «x» puede ser 
A,B,C,D,E,H,L, «y» será HL,IX+d, ó lY+d. 
LD (xx),y: El contenido de «y» es cargado 
en la dirección de memoria que indica «xx». 
«xx» puede ser HL,DE,BC,IX+d,IY+d, ó nh 
siempre que «y» sea A. Si «xx es IX+d,IY+d 
ó HL «y» podrá ser A.B.C.D.E.H.L, ó n. Si 
«xx» es nn «y» podrá ser A,HL,BC,DE,IX,IYó 
SP. 

LD xx.yy: «xx» puede ser HL.BC.DE.IX.IY ó 
SP, siendo «yy» nn.(nn). Carga el dato nn en 
«xx», o bien el contenido de las direcciones 
de memoria nn y nn+1 en «xx» si se usa 
como (nn). El segundo registro se carga en 
primer lugar y el primero en segundo con 
nn+1. 

LD SP,xx: carga el puntero de la pila, stack, 
con el contenido de «xx». «xx» puede ser 
(nn)jin,HL,IX,IY. 

LDD: realiza por sí sola y en el mismo orden 
LD(DE). (HL), DEC HL, DEC DE, DEC BC, es 
decir, ejecuta una carga con decremento. El 
flag P/v toma el valor si BC-0 una vez de- 
crementado. Su uso se extiende al traslado 
de bloques, utilizando HL de puntero en el 
bloque de origen, DE como puntero de desti- 
no y BC de contador de la longitud del bloque 
a trasladar. Utilizando JP PO nn a continua- 
ción se repite hasta que BC=0. 
LDDR: su funcionamiento es igual que LDD 
coro se repite automáticamente hasta llegar a 

LDIs realiza por sí misma y por el mismo or- 
den LD (DE), HL, INC HL, INC DE, DEC BC. 
El flag P/V toma el valor cero si BC=0. Su uso 
se extiende al traslado de bloques, utilizando 
HL como puntero del bloque de origen, DE 
puntero de destino, BC de contador de la lon- 
gitud del bloque a trasladar. Utilizando JP PO 
nn a continuación se repite hasta que BC = 0. 
LDIR: posee un funcionamiento idéntico a 
LDI pero repitiéndose automáticamente has- 
ta que BC=0. 

NEO: su función es obtener el complemento 
a dos del registro A y almacenarlo otra vez en 
A. Su equivalente en BASIC es LET A=-A. 
Sólo afecta al registro A. 
NOP: no realiza ninguna operación. Emplea- 
da para perder tiempo si ésta está en un bu- 
cle. Utilizada, también, para anular instruccio- 
nes sin reestructurar las demás direcciones 
de memoria, sustituyendo cada byte por un 
NOP. 



OR x: ejecuta un «0» según las reglas de la 
lógica entre A y «x», almacenando el resulta- 
do en A. El resultado de la tabla de verdad en 
cada bit será: 0y0=0, 0y1=1, 1y1=1. «x» 

sultado obtenido. 

OUT (x),y: envía información al exterior, al- 
macenada en el registro «y» , indicada por el 
contenido de «x». Pueden utilizarse 256 posi- 
bles aparatos. Cuando «x» es C «y» puede 
ser A,B,C,D,E,H,L. Siendo «x» n «y» tiene 
que ser A. La asignación de los aparatos a los 
ports se efectúa al diseñar el hardware. 
OTDR: su funcionamiento es idéntico a OUT 
(C),(HL) seguido de DEC HL y DEC B em- 
pleados como contador, y repitiéndose hasta 

OTIR: funciona al igual que OTDR, pero in- 
crementando HL. 

OUTD: funciona al igual que OTDR pero sin 



OÜTI: funciona al igual que OTIR pero sin re- 
petirse. 

POP xx: el contenido de la cima de la pila 
stack se copia en el par «xx» y se incrementa 
en dos SP. El byte indicado por SP es copiado 
en el segundo registro y el indicado por SP+2 
queda copiado en el primer registro de «xx». 
«xx» puede ser AF,HL,BC,DE,IX,IY. Se em- 
plea para gestionar la pila junto a la instruc- 
ción PUSH. 

PUSH xx: el contenido del par «xx» es co- 
piado en la cima de la pila, almacenándose y 
pudiéndose utilizar el par «xx» para otras co- 
sas. Se vuelve a recuperar el contenido ante- 
rior mediante POP «xx». «xx» puede ser 
AF,HL,BC,DE,IX,IY. 

RES b,x: el bit indicado por «b» del byte indi- 
cado por «x» se pone a 0. «x» puede ser 
(HL),(rx+d),(IY+d),A,B,C,D,E,H,óL. 
RET: instrucción que permite el regreso de 
una subrutina o devolver el control al intérpre- 
te BASIC. Realiza un POP al registro PC 
(contador de programa), de tal manera que si 
en la cima de la pila stack hay otro dato que no 
sea la dirección de retomo que pone ala ins- 
trucción CALL, el programa salta a la direc- 
ción de memoria indicada por el contenido de 
la cima de la pila. Ello sirve para dirigir una su- 
brutina a un punto distinto al de partida. 
RET c: su funcionamiento es idéntico al de 
RET, pero solamente regresará si se cumple 
la condición «c». 

RETI: finaliza una subrutina que sólo se lla- 
ma mediante una interrupción. 
RETN: finaliza una subrutina que sólo se lla- 
ma mediante una interrupción no enmascara- 
ble. 

RL x: los bits de «x» se desplazan una posi- 
ción a la izquierda ocupando la posición del 
bit contiguo. El registro «x» puede ser (HL), 
(IX+d), (IY+d),A,B,C,D,E,H,L. El bit lo ocu- 
pa el contenido del flag CARRY y el 7 se tras- 
lada al flag O El resultado altera a los flags. 
RLA: emplea el código &H17. Aunque no es 
lo mismo que «RL A» (con código «CB07») 
tienen ambas el mismo efecto, siendo más rá- 
pida RLA y ocupa un byte menos de memoria. 
No afecta a los flags excepto a C. 
RLC x: cada bit se traslada a la posición de la 
izquierda, «x» puede ser (hl), (IX+d),(IY+d), 
A,B,C,D,E,H, ó L. El bit 7 pasa a ocupar la po- 
sición del bit y se copia en el flag CARRY. 
Los flags se ven afectados por el resultado. 
RLC A: su funcionamiento es igual al de RLC 
A, ocupando un byte menos. Su actuación es 
más rápida y sólo afecta al flag CARRY. 
R LD: el contenido de los bits de a 3 de la di- 
rección de memoria indicada por el par HL pa- 
san a ocupar los bits 4 a 7 de la misma direc- 
ción. El contenido anterior de estos bits se 
traslada a los bits a 3 del registro A. Los bits 
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INICIACION AL LENGUAJE MAQUINA 



DELHARD 




O a 3 que contenía A se ubican en los a 3 de 
la dirección de memoria indicada. 

RR x: cada uno de los bits de «x» se despla- 
zan un lugar a la derecha, «x» puede ser (HL), 
(IX + d).(IY + d),A,B,C,D,E,H,L El bit ocu- 
pará al flag CARRY y el contenido previo de 
éste se copiará en el bit 7. Los flags se verán 
afectados en función del resultado. 

RRA: su funcionamiento es idéntico al de RR 
A, ocupando un byte menos, su funciona- 
miento es más rápido y el resultado sólo afec- 
ta al flag C. 

RRC x: cada uno de los bits se desplaza una 
posición a la derecha, y el bit pasa a ocupar 
el bit 7, copiándose además en el flag CA- 
RRY. «x» puede ser (HL), (IX+d),(IY+d); 
A,B,C,D,E,H,L En función del resultado los 
flags se verán afectados. 

RRCA: su funcionamiento es idéntico al de 
RRC A, pero ocupando un byte menos, es 
más rápido y afectando sólo al flag C. 

RRD: el segundo dígito de (HL) se traslada al 
segundo dígito de A. El segundo dígito de A 
ocupará el primer dígito de (HL). El primer dí- 
gito de (HL) pasa a ocupar el segundo dígito 
de (HL). 

RTS x: su funcionamiento es el de CALL 
pero salta a la posición de memoria determi- 
nada por el código de la instrucción. «x»> pue- 
de ser 
&H00,&H08,&H1 0.&H1 8,&H20,&28,&H30 Ó 
&H38. Ocupa un sólo byte en vez de los tres 
necesarios para un CALL nn, pero no pode- 
mos elegir el lugar del salto. 

SBC x,y: sustrae «y» de «x» y luego resta el 
contenido del flag CARRY al resultado, guar- 
dándolo en «x». Si «x» es A «y» puede ser 
(HL),(IX+d),(IY+d),A,B,C,D,E,H,L, ó n. Si 
«x» es HL«y» podrá ser HL,BC,DE, ó SP. En 
función del resultado se posicionarán los 
flags. 

SCF: coloca a uno al flag CARRY. 

SET b,x: coloca a uno el bit «b» de «x». «x» 
puede ser (HL), (IX+d), (IY+d),A,B,C,D,E, 
H,L. El resultado no interfiere en los flags. 

SLA x: cada uno de los bits de «x» se despla- 
zan a ocupar la posición de la izquierda. El bit 
7 se copia en el flag CARRY y el se coloca a 
cero, «x» puede ser (HL),(IX+d),(IY+d) 
A,B,C,D,E,H,L. Los flags se posicionan en 
función del resultado. 



i x: cada uno de los bits se desplazan a la 
derecha una posición. El bit se copia en el 
flag CARRY y el bit 7 no se altera. En función 
del resultado se posicionan los flags. 

SRL x: cada bit se desplaza una posición a la 
derecha, el bit queda copiado en el flag CA- 
RRY y el 7 se pone a cero, «x» puede ser 
(HL), (IX+d), (IY+d),A,B,C,D,E,H,L Los 
flags se posicionan en función del resultado. 

SUB x: sustrae «x» del registro A, almace- 
nando el resultado en A. «x» puede ser (HL), 
(IX+d), (IY+d),A,B,C 1 D„E,H,L Directamen- 
te no se disponen de parejas de registros 
pero se puede emplear AND A seguido de 
SBC HL,ss siendo «ss» HL.BC.DE ó SP. Los 
flags se ven afectados en función del resulta- 
do. 

XOR x: realiza un «0» exclusivo de acuerdo 
a las reglas de la lógica entre el registro A y 
«x». La tabla de resultados es: 0y0=0, 
0y1=1, 1y1 =0. «x» puede ser 
(HL),(IX+d),(IY+dj,A,B,C,D,E,H,L ó n. XOR 
A coloca a cero al flag C y al registro A. 
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MINI LISTADO 
PROCESADOR 

Todos sabemos que los procesado- 
res de texto son programas que convier- 
ten al ordenador en máquina de escribir. 

En realidad, los procesadores de tex- 
to profesionales permiten mucho más 
que esto, pero son muy caros. 

El minilistado que acompaña estas lí- 
neas desde luego no es equiparable a 
un programa de esa envergadura, pero 
te va a permitir usar tu ordenador como 
máquina de escribir. 

En realidad, tan sólo se limita a hacer 
un volcado de pantalla cuando se pulse 
F1, con lo que si se tiene cuidado al 
componer el texto, se puede editar cual- 
quier documento. 

Pulsar F1 sólo cuando se haya finali- 
zado de escribir. 

10 KEYOFF:KEY 1,CHR$(30) 

+CHR$(13) 
20 CLS:LOCATE 0,0:LINE IN- 

PUT A$ 

30 DEFINT A-Z:FOR F TO 

23:FOR C TO 39 
40 LPRINT CHR$(VPEEK(F* 

40 C));:NEXT 
50 LPRINT CHR$(13):NEXT: 

LOCATE 0,22 



VENTANAS 

Cuando se teclea un literal, sobre 
todo dentro de un listado, es pesado es- 
tar pendiente de si la introducción debe 
realizarse en modo de mayúsculas o mi- 
núsculas. 

La cosa puede agilizarse considera- 
blemente si hacemos uso de las varia- 
bles del sistema. Por ejemplo: 

POKE &HFCAB.0 fija la escritura en 
modo de minúsculas. 
POKE &HFCAB,255 fija la escritura 
en modo de mayúsculas. 

Para crear ventanas en nuestros pro- 
gramas, hay otra dirección que nos pue- 
de ser de mucha utilidad. 

Si escribimos POKE &HF3B1 ,x 

siendo x el número de líneas en pantalla 
que deseemos, comprimimos (o prolon- 
gamos) la pantalla de texto. Si combina- 
mos esto con POKE &HF3B2.X, donde x 
es el número de columnas en pantalla, 
podemos fijar la longitud y anchura de la 
ventana que deseemos crear. 

Podemos escribir en la parte inferior 
de la ventana mediante VPOKES, y utili- 
zar la parte superior para visualizar datos. 
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PROGRAMADOR 
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MEJORA AL 

TEST DE LISTADOS 

Jordi Faraudo i Gener, de Barcelona 
nos envía una optimización a nuestro 
célebre Test de Listados. El objeto de 
esta modificación es que el Test sirva 
para realizar el proceso inverso al que 
viene realizando actualmente, es decir, 
que sea el usuario el que introduzca los 
valores correspondientes a cada línea 
que nosotros publicamos junto a los pro- 
gramas. Una vez introducido el valor 
asignado a cada línea, el ordenador 
efectúa la suma de control, y en caso de 
que lo tecleado sea incorrecto producirá 
una señal acústica y dará la suma co- 
rrecta. El proceso de verificación del lis- 
tado con esta modificación es bastante 
más largo, pero quizá algunos de nues- 
tros lectores prefieran realizarlo así. 

Aquí van las modificaciones a reali- 
zar: 

651 70 TS=TS+SOM:GOSUB65500 
65180 IFJF oSOMTHENPRINT 
USING"#### -### M ;RE, 
SOM:BEEP:BEEP:GOSUB 
65520 

65500 LQCATE0,7:PRINT ' 
":LOCATE0,7 

6551 PRINT El n.° de instrucción 
de la línea ";RE;" tiene 
que ser: -LINEINPUT J F$: 
JF VAL(JF$):RETURN 

65520 PRINT:PRINT" Pulsa 
Space 

65521 K$=INKEY$:IFK$o n 
"THEN65521 ELSERETURN 



Jordi Faurado Gener 



3. GRAN 



PROGRAMA 



CONCURSO 



DEL AÑO 



W 

m 



BASES 



CREA Y ENVIANOS TU PROGRAMA. 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A — Educativos 

B — Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIA* 

I ' 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
mismo. 

PREMIOS 



7 - MSX EXTRA otorgará los siguientes 



1 




TITULO , 

CATEGORIA 



K 



INSTRUCCION DE CARGA 



AUTOR: 
EDAD: 

GALLE: 

CIUDAD 

N.° DE RECEPCION 



N.° 

DP TEL.: 




premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

Programa de Entretenimiento 

6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro Departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA. 

11 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO MSX 
EXTRA 

RocaiEatUe, 10-12 
bajos 

08023 Barcelona 



DEVS EX MACHINA 



¡¡EL AUDIO-VIDEO 
EN 




DEVS EX MACHINA 
EL CONCEPTO MAS AVANZADO 
EN JUEGOS PARA TU MSX 
¡SIENTATE ANTE TU MSX 
CONECTA LA BANDA SONORA 
Y VIAJA HACIA EL FUTURO...! 



¡LA AUDIO VIDEO AVENTURA 
MAS ALUCINANTE JAMAS 
CREADA...! 
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